(navigation image)
Home American Libraries | Canadian Libraries | Universal Library | Community Texts | Project Gutenberg | Biodiversity Heritage Library | Children's Library | Advanced Microdevices Manuals | Linear Circuits Manuals | Supertex Manuals | Sundry Manuals | Echelon Manuals | RCA Manuals | National Semiconductor Manuals | Hewlett Packard Manuals | Signetics Manuals | Fluke Manuals | Datel Manuals | Intersil Manuals | Zilog Manuals | Maxim Manuals | Dallas Semiconductor Manuals | Temperature Manuals | SGS Manuals | Quantum Electronics Manuals | STDBus Manuals | Texas Instruments Manuals | IBM Microsoft Manuals | Grammar Analysis | Harris Manuals | Arrow Manuals | Monolithic Memories Manuals | Intel Manuals | Fault Tolerance Manuals | Johns Hopkins University Commencement | PHOIBLE Online | International Rectifier Manuals | Rectifiers scrs Triacs Manuals | Standard Microsystems Manuals | Additional Collections | Control PID Fuzzy Logic Manuals | Densitron Manuals | Philips Manuals | The Andhra Pradesh Legislative Assembly Debates | Linear Technologies Manuals | Cermetek Manuals | Miscellaneous Manuals | Hitachi Manuals | The Video Box | Communication Manuals | Scenix Manuals | Motorola Manuals | Agilent Manuals
Search: Advanced Search
Anonymous User (login or join us)
Upload
See other formats

Full text of "Acorn Programs Magazine (February 1984)"

>•- 





ACORN is a trademark of 
Acorn Computers Limited 

February /March 1984 
An ECC Publication 



<S 



TIME 







1 



ions 



aron 



& 



■ 




25 great 

new programs 

for the BBC 

and Electron 



7 








- 



' F 



/ 





PLUS 

Bank robber 

Catcher 
Crazy Chase 
Mind Readei 
and many more 



u 



UJ 







THE BEST BBC MICRO SOFTWARE 

PRODUCED BY AN INDEPENDENT SOFTWARE HOUSE 
* TOP QUALITY MACHINE-CODE PROGRAMS * 






*** 



* 



/, 



\ 



A 










HUNCHBACK (3ZK> £7-95 

Beautifully detailed animation (the host we've ye! 
seen!) as Quasimodo leaps over the ramparts 
dodging rocks and arrows, swinging on ropes, and 
avoiding the guards's spears as he attempts to 
rescue Esmeralda. Twelve different screens of 
action! This program is sold under licence from 
Century Electronics Ltd; we have exclusive rights to 

its sale for use on the BBC micro. 

(For use with KEYBOARD or JOYSTICKS). 
Itisan extremely good version of the arcade game 
... thoroughly recommended" ... BEEBUC 
MAGAZINE 




FAIRGROUND (32K> £7.95 

An exciting target shoeing game! Bonuses are scored for 
spelling out the word FAIRGROUND by hitting the 
appropriate target letters, and for shooting all the taigets. 
Extra bullets are obtained by shooting the numeicial 
targets, but watch out for the "smlleys" who arc intent on 
stealing your bullets. Music, sound effects, hi-score, and 
rankings. 

NEW RELEASE 




CRAZY PAINTER tfZK) £3-95 

The only full-feature version available for the BBC micro. 
On the first screen* you take the part of a monkey being 
chased by African tribesmen- If you manage to survive by 
painting- in all the squares, the bonus screen features the 
monkey trying to reach his bunch of bananas. After that, 
you take control of a paint-roller and each square painted* 
in adds to your score But beware , the teddy-boars are 
now in hot pursuit. Superb animation and sound -effects. 
(For use with KEYBOARD OR JOYSTICKS). 
NEW RELEASE 




CENTIPEDE (32K) £7 95 

Incredible arcade-style game featuring mushrooms, 

snails, Qies, spiders, and the centipedes of course. 

Excellent graphics and sound 6 skill levels, hi-score, 

rankings, bonuses, and increasing difficulty as the sptders 

become more lively and the number of mushrooms 

increases. 

(For use with KEYBOARD or JOYSTICKS). 

"Visually this game compares well with the arcade 

version, being colourful and dear. m 

„.YOURCQMPUTER 



2002 (32K) £7.95 

A space docking simulator using 3D graphics to model 
the motions and responses of the ORION 4 spacecraft. 
Your mission is to pilot the shuttle to a "soft dock" with the 
space station. PITCH. YAW, ROLL, FORWARD. 
LATERAL and VERTICAL engines are provided together 
with orbit manoeuvehng booster engines 6 skill levels 
provide for the completely inexperienced pilot as weD as 
the fully-fledged commander 
NEWRELEASE 




ROAD RUNNER (JZK) £7.95 

The only full feature machine-code version available 
for the BBC micro. Features include: scrolling 
screen, radar display, 3 pursuing cars, checkpoint 
flags, fuel gauge, smoke screens, 6 skill levels, 
rankings, increasing difficulty, and sound effects. 
(For use with KEYBOARD or JOYSTICKS). 
7 enjoyed the game very much ...the graphics are 
excellent ■ , . movement is smooth and fast as only 
machine code can produce. " ... HOME 
COMPUTING WEEKLY 



ALIEN DROPOUT (32K) £7.95 

A novel and unusual program. Arcade-action with 
this enthralling multi-stage shooting game. You have 
to shoot the aliens out of their "boxes" before the 
"boxes - fill up- Once full, the aliens fly down 
relentlessly, exploding as they hit the ground. Hi- 
score, rankings, and sound effects, 
(For use with KEYBOARD or JO YSTICKS). 
" .. this game is as good as any on the market " . .. 
HOMECOMPUTINC WEEKLY. 





•*■>-■*» 


t *» r *t 




H 








^^H ^^1 j ^^H 


m ** 


<T* ** 


^L ' 


■ 




1 r r mf m y n 





FKOGGER l 32K) £7.95 

Not jiisi anothei version of Froggei . . . this ts the arcado- 
action version that you've been waiting to see Graphically 
bnllian! with qapinq- mouthed aocodiles. diving turtles, 
foes, and (togs that Hex then legs as they jump along. 
Increasing difficulty, and responsive controls. 
(For use with KEYBOARD or JOYSTICKS). 
"... very good indeed ... fert Bicker-tree graphics and a 
frog that really hops!". . . BEEBUG MAGAZINE 



ALSO AVAILABLE 

SPACE FIGHTER (32K) £7.95 

GALAXIANS (32K) £7.95 

INVADERS (32K) £7.95 

FRUIT MACHINE (32K) £7.95 

CRIBB AGE (32K) £6.95 

PONTOON (32K) £6.95 



DEALERS... DEALERS ...DEALERS... 

Our software is now available at all good dealers including :- 

W.H. SMITH - Selected branches. 

JOHN MENZIES- Selected branches. 

BOOTS - Selected branches. 

ELTEC COMPUTERS, 29 Ivegate. Bradford 

MICRO MANAGEMENT, 32 Princes Street, Ipswich 

WEST COAST PERSONAL COMPUTERS, 47 Kyle Street, Ayr. 

MXCROSTYLE, 29 Belvedere, Lansdown Road, Bath. 

ELECTRONEQUIP, 36-38 West Street. Fareham, Hants. 

3D COMPUTERS, 230 Tolworth Rise South, Tolworth, Surrey. 

GTM COMPUTERS, 864 York Road, Leeds. 

+ MORE THAN 300 OTHER DEALERS THROUGHOUT THE U.K. AND 

OVERSEAS. 



AD VENTURE GAMES 

COLDITZ ADVENTURE (32K) 

£7.95 

STAR TREK ADVENTURE (32K) 

£7.95 

LOST CITY (32K) £7.95 

GIDEON'S GAMBLE (32K) . £7.95 



PAY UP TO 20% ROYALTIES FOR HIGH QUALITY BBC MICRO, ELECTRON AND ORIC-1 PROG] 




SUPERIOR SOFTWARE LTD. 

Dept. AP2, 

69 Leeds Road, Bramhope, Leeds 

Tel: 0532 842385 



ALLOUR PRICES ARE INCLUSIVE OFVAT .AND P. A P. 

DEC SOFTWARE AVAILABLE NOW 

AUour programs are ready for despaich on 5^ discsat£1195each. 



OUR GUARANTEE 

( 1 ) All our software Is available before we advertise. 

(2) All our software is despatched within 48 hours by first-class post, 

(3) In the unlikely event that any of our software fails to load, return your cassette or disc 
to us and we will immediately send a replacement. 




Getting more 
adventurous 
on your 
machines 



WELCOME to the second 
issue of Acorn Programs. 
This month our 25 listings 
include a full-scale adventure game 
which sets you searching for the 
crystal of power and the microchip 
which will allow you to escape from 
time in your time machine. 

Among the listings are many 
which have been contributed by 
readers during the last two months. 
If you would like to earn £15 or 
more and see your program in print, 
send a copy of your program on 
cassette or disc to the address below. 
If you would like your program 
returned, please enclose a stamped- 
addressed envelope. 

The Electron computer was 
launched last year but owners of 
Electrons are still poorly-served by 
software houses. Programs suitable 
for the Electron are scarce, whether 
in the form of cassettes or listings. If 
you have written an Electron pro- 
gram or know of any useful routines 
for it, why not share them with 
other readers through Acorn Pro- 
grams? 

7U %^ u 



News 

Softscope 

Competition 

BBC MODEL B 

Character Changer 

Cycles 

Gomuko 

Cockles and Mussels 

Cradle Song 

Blow the man down 

Z-Cars 

Names 

Star Gate 

Baron 

Hangman 

Bank Robber 

Escape From Time 

Catcher 

Scissors Paper Stone 

Bingo 

Solitaire 

Worms 

Simultaneous Equations 

Crazy Chase 

Mind Reader 

Illusion 




Boxes 
Language Tester 



Page 
5 

7 
15 




8 
9 

11 
16 
16 
17 
17 
19 
20 
21 
22 
23 
25 
29 
31 
32 
34 
36 
38 
38 
39 
41 
43 
44 
47 



Managing editor Nigel Clark Assistant editor Rebecca Ferguson Managing production editor Harold Mayes MBE Group art director 
Chris Winch Group advertisement manager John Ross Advertisement executive Ajay Patel Editorial assistant Colette McDermott 
Production assistant Dezi Epaminondou Managing director Terry Cartwright Chairman Richard Hease. 
Acorn Programs is published bi-monthly by ECC Publications Ltd. 

The views expressed herein are not necessarily the views of Acorn Computers Limited 

Telephone, all departments: 01-359 3525. If you would like to contribute to Acorn Programs, please send programs on disc or cassette to Acorn 
Programs, ECC Publications, 196-200 Balls Pond Road, London NI 4AQ. We cannot undertake to return them unless a stamped, addressed 
envelope is enclosed. We pay a basic rate of £15 for the copyright of each program published. 

©Copyright 1984 ECC Publications Ltd. ISSN 0265 4660. Printed and typeset by Cradley Print PLC, Warley, West Midlands. Distributed by 
Spotlight Magazine Distribution Ltd, 1 Benwell Road, Holloway, London N7. 01-607 6411. 



ACORN PROGRAMS February/March 1984 



ii 




FAR AND AWAY THE BEST MAIL 
ORDER FIRM FOR SOFTWARE" 



(M. PANKHURST, CRANLEIGH) 



SOFTWARE SUPERMARKET 



All we do at Software Supermarket is to play all the programs we can find, to select for you the very best - to save you wasting your time and 
money on the rest. We produce no programs ourselves - so our choice is impartial. 

We've put into our new FREE CATALOGUE the best of the new BBC programs and the all-time greats. We quote reviews from all the 
magazines (which saves you £££s each month 1 ) and give you our honest opinion. 

We choose the best and send them fast - normally on the same day we receive your order. Mail order and phone VISA/ Access card order only, 
please. We're too busy testing games to run a shop 1 Any faulty tapes replaced at once Customers in over 40 countries write praising our same-day 
service: we hope you'll be as pleased. 




:\-WnW>M DOGFIGHT 



THE HOBBIT 



At last 1 • a BBC version M one of the greatest 
adventures ever AVAILABLE NOVEMBER 
"Superior to any other adventure game" (Your Computer) FREE 285-pege illustrated book 
with clues unique real-time adventure 80 locations massive vocabulary 16-page manual 
it took 4 people 18 months to write 1 (Melbourne) C14 95 

QD A PIT A HinTMTI TUP "Graphics, colour and 
■J* Itvb MXMJ V MLaVi A xJIxLm sound are superb The 
only problem I had was prising my friends away from it ' (HomeCompWkly) A thoroughly 
enpyable game I would strongly recommend it ' (PersCompToday) A graphic adventure 
on a drifting spaceship You must find the 4 power crystals - but there are many different 
androids protecting the ship Amazing graphics 90 rooms 3 skill levels 10 command 
keys; 8-way movement JOYSTICKS OK (Virgin) £7 95 



3D DEEP SPACE 



WITH FREE 3D 



'Not ;ust a game with a new gimmick it 's also a classic game m its own right 
(Comp& VideoGames) The fust ever true 3D It is pretty amazing You are defending a Siargate 
which leads to Earth To destroy the enemy you must move IN and OUT as well as normal 2D 
moves' (Postern) C7 95 

flB IPlkYf U Probably the least exciting name we ve heard lor one of ;he most 
JL X\dlH^sfl exciting games we've played Remember the end of 'RETURN OF 

THE JEDP Well, how about flying your Beeb/X-Wing Fighter down the 3D Tiench towards the 
Death Star-style target, dodging the tie-hghters as they attack 9 skill levels sensational 
graphics. Joysticks K (Clares, too) (Virgin) £7 95 

CALL 01-789 8546 (24 hrs) 
CHARGE PROGRAMS TO VISA/ACCESS CARD 



To: SOFTWARE SUPERMARKET, 87 Howards Lane London SW15 6NU. 

If you do not want to cut this magazine, write your order carefully on plain 
paper and quote this Number. API 

I own a 32K BBC Micro. I enclose a cheque/PO made payable to 
Software Supermarket. OR Charge my VISA/ACCESS card 

CI 





D VISA D ACCESS 



no. 



] 



mTTT 



.; i 



Signature 

Please write clearly- If we can't read it, you wont get it. 

XVuiim I IIIIHMMF «Mf ..ll»Htti |MIIIIMM«MtlMt(HM"l .-■ .-. 

Address 



L 



Phone, if any. 


, Postcode 

in case of query 


1 »*iii*Mttmniti 




Program Name 


Price 






:. 






c 






I 




■ 


c 






c 






L 




POSTAGE 

AND 

PACKING 


UK Add 55p only per order 


:::::. : .;. 




EUROPE Add SSpfoi each program 


£ 




OUTSIDE EUROPE Add £1 (or each ptogiam airmail 


£ 




OUTSIDE EUROPE. ADD £1 TO TOTAL TOT AT 
FOR REGISTERED MAIL l *"* * ^ 


f. 





J 



The most original and entertaimng program I have 
seen (or a long time the graphics and sound effects are 
excellent "(HomeCompWkly) "An impressive choice of options and difficulty levels " 
(AcomUser) You won't believe the fantastic music on this program - long before you get to the 
World War 1 air battle Choose your plans and fight your friends!?) to the death 8 difficulty 
levels amazing options Get it for the graphics and music play it for the sheer skill' Raves 
everywhere Joysticks K (Opus) £9.95 

The graphics are excellent and sound is 
used effectively I enjoyed the game very 
much "(HomeCompWkly) Race around a racetrack instead of the Galaxy 1 Very superior 
graphics and amazing sound Avoid the cars and obstacles and collect points for checkpoints 
6 skill levels bonuses. Hall of Fame with name very catching (Superior) £7 95 



ROADRUNNER 



"The best 
Bight 



747 FLIGHT SIMULATOR 

simulator around that tuns on the Beeb a must for ali budding pilots (PersCompNews) By 
Captain Roger Selby of British Airways You're in charge of a 747 which you may choose to land 
at either Heathrow or Gatwick 1 1 control keys clear instrument display good runway view as 
you approach 8-page on-screen (light briefing The crashes are very realistic 1 No joysticks 
(Dr Soft) £8 95 

OiJ DV/IVID riuljEl X simulation of an airsea battle All you 
have tr 1o is delend your ships against air attack Some of the best animated graphics we've 
ever seen on the BBC JOYSTIX O K (Software Invasion) £7 95 

lMff f D/^Dli 1 ANOTHER BRAND NEW GAME A huge and monstrous 
IVlli V#£\^#Db alien is threatening Earth You are in the alien's bloodstream 
and you must destroy it from within ' Huge animated graphics very fast good destruction 
sequences' JOYSTIX O K (Virgin) 17 95 

ITT T1VT flTD A f iy Tne 0D l ecl 1S l0 rescue Esmeralda from her tower 
I1UH VilDAvIl But you must jump over boulders hurled along the 

battlements, hurtle over arrows, and clear the spears of the guards 3 skill levels Superb 

graphics 12 diderent screens, then it speeds up" Hall of Fame JOYSTIX OK {Superior) £7 9b 

¥ ^\ "UflkJIkW^T ^)P^2 A new graphic battle game ■ NOT an adventure' 
V \*J M.M.M.W AH X X\El^J arcade game Fight out a struggle for a river 
crossing during the American Civil War lor 2 players Choose your side equip your army fight 
the battle great battlefield display Fight to the death or within time limits as you wish 
(Lothlonen) £6 95 

'A brilliant new game ' 
(Micro User) About as 

complex as such a program can be excellent value tor money" (Which Micro 7 ) Choose your 
party and run the country Will unemployment come down or the rioters come out' Watch the 
results of your rule on election night {HesselJ £5 95 

"A superb piece of programming' 
(Laserbug) "One of the most 
successful BBC games ever" (PopCompWklyJ\\\e very best ol all the monkeys wandering 
around playing with your Beeb Rescue the maiden crying HELP 1 ' Avoid rolling barrels, 
fireballs, iron beams A screens on each level Hi score so far 68.200 JOYSTIX OK 
(PiogramPower) £7 95 

This game can damage your brain " (PersCompGames) "An 
original and amusing game worth the outlay " 
(PersCompNews) AT PRESSTIME, YOU CAN STILL WIN THE £6,000 GOLDEN 
SUNDIAL by solving this wonderluily witty adventure Brilliant use of music and graphics 
Wouldn't you like £6.000' (Automata) £10 00 

B A B A CJ New graphic battle game NOT an adventure/arcade game A 
XT £\L\t\i3 gripping simulation ol small -unit actions Command 15 men 10 
possible actions on each move lOskill levels 2-partgame secure your retreat, then destroy the 
bridge (LothlonenJ £6 95 



GREAT BRITAIN LTD 



KILLER GORILLA 



PIMANIA 




:l*k^W*^i 




Oui catalogue has details of the GEMINI programs, which we reckon are the easiest to 
understand and the safest to use we do 1 BEEBCALC, BEEB PLOT, DATABASE and 
HOME ACCOUNTS ate £19 95 each Each comes with a very helpful manual and a demo tape 
in a library case big enough to contain your own saved files too 



ACORN PROGRAMS February/March 1984 



Asia deals 

arranged 



HOT on the heels of the 
launch of the BBC computer 
in the States followed news 
that, because of assistance 
from the Department of Trade 
and Industry in Acorn's 
negotiations with India, a 
substantial order had been 
placed. 

Acorn Computers is also 
negotiating with the People's 
Republic of China to sell 
Acorn computers there as 
well. 

So far, Sinclair Research is 
the only major British manu- 
facturer of microcomputers 
to sell computers in China 
and its supply problems have 
meant that there is still space 
in the Chinese computer 



market which Acorn may be 
able to fill. 

The Indian order was 
placed following a gift of five 
six-station Econonet net- 
works including monitors, 
disc drives and other peri- 
pherals to the President of 
India. It formed part of the 
traditional exchange of gifts 
during the Queen's visit. 

Acorn would not give the 
size of the order other than 
that it was 'substantial' but 
the machines are to go to the 
country's leading universities 
for the development of soft- 
ware for schools. The com- 
pany has been trying for 
some time to get into the 
education market in India. 




Electron shortage 



MANY potential Electron 
buyers have been frustrated 
by lack of supplies in the 
shops. When the Electron 
was launched Acorn hoped to 
produce it in big enough 
quantities to cope with the 
Christmas demand but re- 



Confident on BBC contract 



THE ACORN Computer 
contract with the BBC con- 
cerning production of the 
official BBC computer is due 
for renewal in October. Sin- 
clair Research, producer of 
the ZX-81 and Spectrum 
computers, has expressed an 
interest in winning the con- 
tract. It has produced a Hurry 
of rumours that by next year 



the official BBC computer 
could be a very different 
machine, produced by any 
one of Britain's top personal 
computer manufacturers. 

Acorn is confident that it 
will retain the contract and a 
spokesman for the company 
says: "We have had no indi- 
cation that the BBC wants to 
withdraw from the contract". 



The statement was reinforced 
by that of a spokesman for 
Commodore (U.K.) Ltd, 
which found it "unlikely that 
the BBC will swap com- 
puters", as any replacement 
computer would have to 
reach BBC specifications and 
employ BBC Basic, which 
only Acorn computers do at 
present. 



Connecting to 
Sinclair print 




.',--' ■ 



PRINTED COPIES of pro- 
gram listings and screen dis- 
plays can be invaluable to 
computer programmers. The 
price of printers, however, 
puis them out of the reach of 
many computer owners. WD 
Interfaces of Leeds has intro- 
duced an interface which al- 
lows a BBC computer owner 
to connect the computer to a 
Sinclair Research ZX printer. 
Losing a ZX printer will be 
costlier than using it with a 
Sinclair machine, as the inter- 
face costs almost £30 and the 
printer costs slightly less than 



£50. Anyone thinking of 
buying such a combination of 
interface and printer should 
be aware of the fact that the 
ZX printer has a tendency to 
smudge copy and to jam if 
not handled very carefully. 

Meanwhile Electron users 
are likely to have to wait 
before they can expand the 
uses of their machine. Many 
pieces of hardware have been 
promised but at the time of 
going to Press none of them 
had been put on sale. 

Demand is growing for 
printer interfaces and joystick 




ports which, it is thought, are 
likely to be produced by 
Acorn, but no date has been 
given for their appearance. 

Sir Computers of Cardiff is 
likely to be the first company 
which has add-ons ready for 
sale. It is expected to have a 
ROM extension board, allow- 
ing users to use eight BBC 
ROMs, ready in January with 
a printer and joystick inter- 
face following shortly. 



quests for it before it was on 
sale meant that demand ex- 
ceeded supply. 

A spokeswoman for W H 
Smith said: "We are selling 
every Electron we get hold 
of" and a spokesman for 
Acorn said that it intended to 
increase production to meet 
demand as soon as possible. 

That is a similar experi- 
ence to a London retailer 
which advertised that it had 
38 Electrons for sale in 
December. The morning of 
the day in which Microage 
Electronics of Edgware was 
due to sell the machines there 
was a long queue of expectant 
customers braving the winter 
cold outside the shop at 7am. 

There were no riots but 
only half the people waiting 
were able to buy an Electron. 



Penguin 
library 

PENGUIN, the paperback 
publisher, is expanding its 
range of computer publica- 
tions by signing a deal with 
Acorn to launch a series of 
books on the company's com- 
puters. 

The series will be called 
The Penguin Acorn Computer 
Library. The first two books 
are already on sale — The 
Acorn Guide to the Electron by 
Neil and Pat Cryer selling at 
£5.95 and Games and Other 
Programs for the Acorn Elec- 
tron by Lee Calcraft for 
£3.95. 









ACORN PROGRAMS February/March 1984 




@)WWW 




mm 



A FEW EXAMPLES FROM OUR RANGE 




Andriod Attack (Computer Concepts) 




£8.95 


Centipede (Superior Software) 




£7.95 


Moonbase Alpha (Micropower) 




£7.95 


3D Bomb Alley (Software Invasion) 




£7.95 


LISP(Acornsoft) 




£16.85 


Snake Pit (Postern) 




£7.95 


Strato Bomber (UK) 




£7.50 


Great Britain Ltd (Hessel) • 




£5.95 


Bug Byte (Sea Lord) 




£7.50 


Digital Fantasia (Golden Baton) 




£9.95 


^ - SPECIAL OFFER - 

* £1.25 OFF 


* 

* 






. alt cassettes (while stocks last) 
* Postage & Packing Free. 


* 








Send for our free catalogue which includes all the leading software 

houses. 
Send catalogue requests and orders to: 

SOFT SHOP, 78 Warren Drive, Hornchurch, Essex RM1 2 4QX. 

Telephone: (04024 - 47722 



DATATECH 

TOP QUALITY PRINTERS 
ROCK BOTTOM PRICES 



EPSON RX80 
EPSON RX80 F/T 
EPSON FX80 F/T 
EPSON MX100 F/T 
EPSON FX100 F/T 



£219 + VAT 
£248 + VAT 
£328 + VAT 
£378 + VAT 
£438 + VAT 



We also have large stocks of 

sundries including ribbons 

fanfold paper roll paper 

continuous labels 

dust covers etc. 

For free brochure and discount 
order form write now to 

DATATECH LTD (AP) 

8 BELUNGHAM CLOSE 

BURY LANCS 

BL8 2TU 

TEL: 061-764 5579 



bili/Erlind 



SILVERLIND LTD. 156 Newton Road, Burton-on-Trent, 
Staffs DE15 0TR. Telephone Burton (0283) 63987 

ALL PRICES INCLUDE POST & PACKING & VAT 



HONEYBUG £7.50 

A new and entertaining fun-game from the author of 
PENTI LES. Fast reactions are needed to catch the errant 
larvae and weevils as you build up the hive with honey 
and a variety of bugs. Can you succeed in making the 
colony swarm in this colourful, appealing and amusing 
game? 

PENTILES £6.95 

A jigsaw-type game. All ages will enjoy hours of enter- 
tainment with this fascinating and frustratingly addictive 
game which requires both luck and logic! 

REVERSI £6.95 

Play the computer in this fast machine code/BASIC 

version of the popular board game. With 5 skill levels, 
autoplay, etc. 

TOWNTEST £6.50 

A well-presented educational game. Test the family's 

knowledge of town and city locations in England, 
Scotland and Wales. 

HAUNTED HOUSE £6.00 

In this absorbing adventure game, beware of the ghost 
as you search for treasures and negotiate the hazards 
of the castle and graveyard. 



GATEWAY TO THE STARS £6.50 

You meet bizarre situations and alien creatures in this 
exciting space adventure. 

PASSPORT TO DEATH . ■ £6.50 

Where on Earth are you?! Mapping this strange planet 
will lead you, a ZENDONIAN, to exciting adventures 

and fantastic treasures. Remember your starship 

needs extra fuel to take you home to ZENDON. 



* 



Special Offer ! ! 



Purchase any 2 games and SAVE £1.00 on each 

Purchase any 3 games and SAVE £1.50 on each 

Purchase any 4 games or more 
and SAVE £2.00 on each 



* 



*■ 



BBC/B GAMES 



BBC/B GAMES 



Offer closes 31st January 1984 



BBC/B GAMES 



* 



ACORN PROGRAMS February/March 1984 




Pointless use 
of the third 
dimension 

THREE DEEP SPACE is com- 
plete with a set of spectacles, to 
provide you with a three-dimen- 
sional image on your television screen. 
They seemed far too big for some 
people and did not seem to work at all 
for others. That meant that more than 
half of the people who played it could 
not see the 3D effect. 

The game has no instructions. You 
play the part of a triangle on the left of 
the screen, shooting-down the attacking 
waves of parallelograms which ap- 
proach from the right of the screen. 
That would normally mean moving up 
and down only but in 3D you are able to 
move forwards and backwards as well. 
The parallelograms are later replaced 




by small aliens which are more difficult 
to hit. i 

The extra-dimensional effect is inter- 
esting but the game is unexciting and 
tiring on the eyes. 

Three Deep Space is produced by 
Postern Ltd, PO Box 2, Andoversford, 
Cheltenham, Gloucestershire GL54 
5SW and costs £7.95. 



Child quiz boosts 
reference book use 



THIS EDUCATIONAL game is 
aimed at people between seven 
and 13 years of age. The player 
thinks of an Animal, Vegetable or 

Mineral and the computer attempts to 
identify it by asking questions. If it 
cannot do so it asks for a new question 
to distinguish the new object from the 
ones it already has in its memory. 

If used in conjunction with reference 
books or a teacher, the game could 
encourage players to search for possible 
questions and their answers. Cheating is 
possible, though, and if the computer is 
given incorrect information it can be 
made to look stupid very quickly. For 
those who see the object of education as 
being the acquisition of as many facts as 
possible, the program is educational. 
Otherwise its main virtue is to promote 
the use of books. 

Animal, Vegetable or Mineral is pro- 
duced by Bourne Educational Software 



ANIMAL 

VEGETABLE 

MINERAL 

Cm ttM : c mpu 1 1 r f u t s s 
iiht oOiect yw'vt thought of ? 

'thtBBCMicrocomputtf 



■" - . 



■:^r 



and distributed by Acornsoft Ltd, 4a 
Market Hill, Cambridge CB2 3NJ. It 
costs £7.90 on cassette and £9.55 on 
disc. 



Good Pac-man version 



YOU PLAY the part of Sally, 
who is hastening to gather the 
gold on the card tables in her 
saloon, while the cowboys who own it 
are involved in fighting each other. If a 
cowboy catches Sally he will stamp up 
and down on her but if she sees him 
first she can knock him flat by throwing 
a table at him. Throughout that action 
the pianist continues to play, encourag- 
ing the player to greater efforts and 
driving anyone else in the room up the 
wall. 

The game is a well-thought-out ver- 
sion of the Pac-man theme. The keys 
are easy to use and the screen display is 
clear although, as Sally faces only left 
and right, it is difficult to tell when she 
is moving up or down the screen. The 
music creates atmosphere, speeding as 
the action becomes faster, and reinforc- 



Fast and furious lift-off 



PLAY THE PART of a looney lift 
operator, capturing hotel guests in 
your lift and imprisoning them in 
the basement so they cannot reach the 
ground floor and complain to the man- 
ager about your activities. The guests 
move quickly, fall through holes in the 
floor, and all the time there is baggage 
arriving for collection on a conveyor 
belt. 

The game sounds fast and furious 



and so it is. The instructions are clear, 
the keys are easy to use; the important 
thing is not to panic. When a VIP has 
just fallen through the floor, two guests 
have sneaked out of their rooms and the 
third case is making its way along the 
conveyor belt, not panicking is well- 
nigh impossible. 

Looney Lift is produced by H&H 
Software, 53 Holloway, Runcorn, 
Cheshire WA7 4TJ. 



ing the shaking of the whole screen 
display when a cowboy jumps on Sally. 
Saloon Sally is produced by Psion 
Software, 20 Clifton Court, Maida 
Vale, London NW8 8HT on cassette 
only for £7.95. 

The answer 
lies in the 
micro-chip 

MAGIC GARDEN is designed 
to help you select flowers and 
shrubs to plant in your gar- 
den. It acts as a cross-referenced card 
index, storing information on large 
numbers of plants under headings such 
as colour, soil type preferred and scent. 
Plants can be found under either one or 
a combination of those headings and 
extra information on other plants can be 
added to the databank. 

For keen gardeners who already have, 
or who have planned, such a file, the 
program would be useful. Without pic- 
tures, or information on the price or 
availability of plants, however, it was 
difficult to make a definite choice. 

Shirley Conran's Magic Garden is 
available from Acornsoft Ltd, 4a, Mar- 
ket Hill, Cambridge CB2 3NJ and costs 
£9.85 on cassette and £11.50 on disc. 




ACORN PROGRAMS February/March 1984 






CHARACTER 
CHANGER 



CHARACTER CHANGER by 
Simon Aspinall of Beaconsfield, 
Buckinghamshire helps you to 
define your own characters. An eight by 
eight grid is displayed on the left of the 
screen and the character is shown on the 
right. When you are asked which char- 
acter you wish to use, choose a number 
between 227 and 254. Instructions are 
included in the program. 



IS REM CHARACTER GENERATOR 
20REM COPYRIGHT 1983 SIMON AS 
PINALL 

38MUDE4 

40PR1NT" CHARACTER HflNDLI 
KG" 

S0PRiNT H 

b"0PRINT 

70PRINT"THE CHARACTER GEN. SH 
UW9 A DESIGN GRID ON THE LEFT A 
NO THE ACTUAL CHAR. UN THE RIGHT 
■CO-ORDINATES ARE ENTERED ROW TH 
EN COLUMN C NUMBERS GIVEN ON GRID 
>. " 

80PR I NT "CO-ORDINATES MAY BE E 

NTERED AT THE SAME TIME WITH A C 

LiMMA BETWEEN THEM. IF YOU WANT 

TO DELETE THE SQUARE GIVEN JUST 

ANSWER 'V TO THAT QUEST 1 UN. " 

30PRINT 

100PRXNT"IF YOU WANT THE CHR <J 
ET PRINTED THEN PRESS U OTHER 
WISE PRESS SPACE OAR." 

110A««GET* 

l20IFfl»O"(iJ"THEN 190 

l 3DCLS 

1 40PR i NT " CHARACTER SET " 

1*0FORF5£»227TG255 

160PRINT" "jCHR9KF3£>j" " ; FV.j 

l70NEXTFfc 

160STOP 

190REM ***** DESIGN A CHARAC 

TER *** 

200MODE4 

£l0VWJ2y/225/255, 129* 1£9/ 129, l 
£9/ 129, 129/255 

228VDU23 , 226 , 255 , 255 , 255 , 255 , 2 
55/ 255*255/ 253 

230t?lMR5tt8> 

240DIMBX<8> 

258DIMS<8> 

268CLS 

278PR I NT " CHAR AC TER GENERATOR 
CHARACTER" 

288PRINT" 



290PRINT 

■3QOFORF^=1T08 
310PRINTTAB<3:«;F*; 
320VDU 225 i 225 ; 225 ; 22b; 225; 225 
; 225; 225 
330PRINT 
340NEXTFV. 

3bQAk< 1 )-l4S 
360A*<2>«175 
370A3fi< 3 >*205 
380ffi£C 4 >«240 
390flfc< 5 >-275 
400A^C6>-395 
410A*<7>340 
420A*< 6 >-365 
438B^< l>910 
440BK< 2 >«880 
450B*< 3 >»840 
460Br«4>-810 
470B*<; 5 >«780 
480B*<6>«750 
490B*< 7 >-720 
5000fc< 8 >«690 
510FORFfc»lT08 
520PR 1 NTTABC 3+F's. , 1 1 > J FH 
530NEXTF* 
540PRINT 

550PRINT"WHAT CHARACTER NUMBER 
DU YOU WANT TO USE" 
560INPUTOS 

570 1 :FU%< 227THENGOTO260 
580 1 FOV. >254 THENGOTO260 
590PRINTTRBC22/ 1 >iffi 
600PRINTTAB<0,13>;" 



If a 



61 SPRINT" 
620PRINT" 

630PRINT" 



II 



II 



640PR1NTTRB< O, 13 >; "INPUT COORD 



'S" 



6501NPUTA,B 
660PRINTTAB< 0/155;" 

il 

67OPRINTTAB';:0, lfc>/" 



660IFA— ITHENSTOP 
690 1 F A< 1 ORA >80RB< 1 ORB >8THENPR 1 
NTTRBC.fi j 14 > J " 

it 

7O0 1 FA< 1 ORA >80RB< 1 ORB >8THENG0T 
U640 

710PRINTTAB'.0,15>; 
720PR1NT"D0 YOU WANT TO DELETE 
THAT SQUARE?" 
730iNPUTA* 
740PRINTTAB<O>16>j" 
750 I FA** " Y " THENGUTU790 
760PR I NTTAB< B+3 , 2+A ) ; CHRtC 226 ) 
770PROCDEFCHARC 
780GOTO600 

790PRINTTABt B+3, 2+A :•; CHR»< 225 ) 
800PROCDEFCHARC 
810GOTO600 

820DEF PROCDEFCHARC 
830FORF5S-1TO8 

840S< F'K >=0 

850NEMTFX 

860FORFX-1TO8 

87OE-0 

880IFP(JlNKfl*<l>/B3s<F*>>«lTHEN 



E-E+128 

890IFPOINK Ar« 2 >/BX< F'/. > )»1THEN 
E»E+64 

900 1 FPU I NT< Rfc< 3 >,Bfc< F'A > >1THEN 
E=*E+32 

910IFP<JINT<fl5S<4>/Bfc<F5O>-lTHEN 
E~E+16 

928 1 FPU INK R5tf 5 >/Bfc< F'/. > >»1THEN 
E-E+8 

930IFPOINK AV.< 6 >jfift< F'4 ) )"1THEN 
E=E+4 

940IFPOINT< A*< 7 >/ B'/.i. F'4 ) >-lTHEN 

E-e+2 

958 1 FPU INK AV. 8 >/B3fi< F* > )-lTHEN 
E-E+l 

96QSC FJs >«E 

970NEXTF?! 

988VDU23 / 05; , St 1 > > S< 2 > , S's 3 > ; S< 4 
> / S< 5 ."• / SI 6 ?■ , S< 7 .*> , SC 8 > 

990PRINTTAB< 32. 5 >; CHR* U'i :■ 
1000PRINTTABC 0/ 22 >> "Nu ■- "; 
1010FORY?t«lTCl8 
1O20PRINT" ">S-;Y5i>; 
1030NEXTY5J 

1049 ENDPROC 
1050STOP 
IfififiPRINTTflBC 10/2>/ 

1070VDU23O,231>232 

l0B0fl*-GET* 

1090VDU235 

1100VDUt27/ll/135/ 127, 11/ 135, 12 
7,8, 135, 127,3, 135, 127,8, 135, 127, 
8,135 

1 1 10FORF-lTOi0 ' NEXTF 
1120GOTO1H8 

1 13OFORF-7TG0STEP-1 
1140MUDEF 

115QVDU230, 23 1,232 

1 1 60VDU240 ,241, 242 

1170A*=GET* 

11Q0NEXTF 

1 1 90DRAW 1 008 , 1 0O0 

1200VDU19/ 1/8/0/0/0 

1210A*=GET* 

1220VDU19/ 1/1,0,0/0 




8 



ACORN PROGRAMS February/March 1984 




IT IS BETT6/R 7* 

1 PAVEL. Hofefwuy 

THd'N/ TO 



Till'] CjAMF. lakes place on an 
enclosed grid with each of two 
players controlling a super cycle. 
Player one uses keys W, A, P and X and 

player two uses 0, I, P and L. All 
collisions are fatal and the loser of each 
round is the player who crashes first. 

Cycles was written by Simon Aspin- 
all of Beaconsfield, Buckinghamshire. 



1 REM LUPYRiCHl iy«3 SIMON H 


270 


Xl«10*Yl«5*X2«Xl Y2=33 


■i=y 






sriNffl-L 


280 


VDU 240, 240, 240 'PRINT" PLfl 


530 


iFINKEY'. 56 >= 1 I HF NS"<»1 : R% 




10 UN ERROR LOTO 30 


YER i 


";CHR*<242>j " "; 


-a 






20 MUDL4 


230 


VDU240 , 240 , 240 , 240 , 240 ■ PR I 


540 


I F I NkEY< -40 > — 1 1 HLNi V*. »- ! 




:.;ij CU3 


NT" PLAYER 2 " ;CHR*< 244 >; " ";• 


*<^0 






40 PRINTTflfcK 17 >; "TRAPPER" 


VDU 240,240,240 


550 


I F i NKL Y< -07 >— 1 THENAR- ) yJfi 




50 PR I NTTflEK 1 7 > ; " " 


300 


PRINT * VDU240, 240, 240 ' PRINT 


--(3 






m PRINT 


II 


/ 


360 


L0TU360 




70 PRINT" by Simon FtePina 


310 


VDU240, 240, 240, 240, 240 > PRl 


570 


DEF rNPtRDLH'.X,Y:' 




11." 


NT" 


"; VDU 240,240, 


380 


LOCAL A* , LASTX , LAS1 Y , I 




SO PRINT 'PRINT PRINT 'PRINT 


240 




590 


LASTX-PUS 




90 PRINT"SPEED O TO SCO' CSS 


J20 


PRINT 


600 


LA$TY=VPOS 




SLOWEST* 7" 


330 


PRINTD* 


610 


VDU 3l,X,Y 




100 INPUT SK 


340 


PRINTTflfi<d,20>jP 


620 


i-r/^i35 




110 IF SK--.1 THEN SK-1 


350 


PRINTTAB<2e,28.V0 


630 


C«U3R'.&rFF4> 




120 VDU 23;8202;0*0;0j 


360 


PRINTTAB<Yl,Xl >jCHR4K241 ) 


640 


u-l kind wrrr 




1 30 VDU 23 , 240 , 65 ,170, 03 .170/6 


370 


T-FNREADCH'; Y1+U2C/X1+CHO 


650 


OC DiV MOO 




5, 170,8b, 170 


330 


1FT032THEN PROCCRASH 


660 


VDU 2l,Ln'JTX,Ln3TY 




140 VDU 23, 24i:, 56, 68, 170, 130.* 8 


390 


Xi-Kl+Q^Y1=Y1+W^ 


670 


»c 




4 , 6(3 v 6fe , 56 


40© 


PRINTTRB' Yl , X 1 >; t*HR»< 242 > 


6GQ 


DEX PROCCRASH 




150 VDU 23,241,2SS,0,2&S/0,2S5 


410 


IF1NKEY< -66 :— 1THENWX*-1 


690 


Xl-Xl-W^. Y1-Y1-W-; 




,0,25S,0 


£«0 




700 


0-0+ 1 • PR I MTTAB< 20 , 20 "< ; 




1 60 VDU £3 , 244 ,60,124,94,124,1 


420 


IFINKEY<-31 >«-lTHENW?S-l '<** 


710 


CJJT0750 




24, 124,56, 16 


-0 




720 


DLF PR0CSMA3H 




170 VDU 23,243,100,200,100,290 


430 


rFINKEV<-34>—lTHENa^*-i <U 


730 


X2-X2-A* : Y2*Y2-Sfc 




, 100,200, 100,200 


5J-0 




740 


P=P+1 =PRINTTflB<y,2e>;P 




1 30 D»-STRINL*< 3$ , C HR«< 240 > > 


440 


I F 1 NKEY< -67 :- - 1 THLNUfc-1 ' Wfc 


750 


PRINTTflO<. 8, JU :•} "PRLS5 SPflL 




190 O»0 ; P=*O 


»0 




E TO RESTART" 




200 rxs 


450 


PRINTTAB< Y2, X2 >; CHRSC 243 > 


760 


*FX1&,0 




210 Q^-Q'W^lFi'i-0^^--l 


460 


I FSK< > 1 THENPROL DELAY 


770 


G*»GET* • IFG»< >" "THEN770 




220 PRINTD9 


470 


PRINTTAB< Y2, X2 >; L HRSK 243 ) 


780 


G0T020G 




230 F0RFK-1T029 


480 


T«rNPLAfX H< Y2+<J-\ , X2+A?i > 


790 


OEr PRUCDELOY 




240 PRINTCHR3K 240 >; STRING*', 37, 


490 


ITT< >32THEN PRUCttMfftH 


£00 


FORF= 1 TOSK* 1 NEXTF 




" ">;CHR*<240> 


500 


X2-X2+A5T Y2«Y2+S?S 


810 


ENDPRUC 




250 NEXTFfc 


510 


PR I NTTAB< Y2 , X2 > > CHR**. 244 > 








260 PR INTO* 


520 


rriNKEYt-3e>*-lTHEN^"-l a 









ACORN PROGRAMS February/March 1984 



TYPEASY 

Typing tutor for BBC model B or Electron 

• 1 39 graded exercises on cassette or disc 

• PLUS routines for writing more yourself 

• KEYBOARD DISPULY with pointer 

• NEW KEYS practised in one line exercises 

tells you which finger to use 
CAPS/lower case, numerals, punctuation, signs! 

• ADVANCED multiline paragraphs - checks 

all strokes, new lines, etc at end of copy 

• MEASURES SPEED in words/minute 

• LOG of pupil's work displayed or printed 



TV 



PE 



m 



%%«s 



A game to take you to FRENETIC SPEEDS 

LETTERS rain down faster and faster — KILL them by 
pressing the right key before they occupy your base. Choose 
from many levels: 

CAPS only, u/l case, numerals, whole words 

Finds and attacks your weak spots 




A 



*/ 



/ 



w 



r 



Typeasy cassette £8,95 

disc 40 track £12.50 

Type Invaders - cassette ( BBC only ) £6.95 

Two on one disc 40 track & 16.50 



B 



i ' 



all inclusive - - cheque with order 

Carswell Computers Faringdon, Oxon, SN7 8JN 




SOFTWARE 

+ * Arcade Games * Adventures * 
* Educational * Utilities * ROMS * 






* Languages 






and more 

Most from £1 
per fortnight 

With up to 
25% discount 





Airline 

Hijacks, strikes, crashes and 
spiralling fuel costs must all be 
overcome if you are to succeed at 
this game. A wing and a prayer will 
not be enough to turn your £3 
million to £30 million in the time 
allowed, but your financial wizardry 
will enable you to take over British 
Airways, or will it? 




Dallas 

Can you amass enough petro 
dollars to take over the Euing 
empire. Cut throat business and an 
eye for the main chance may get 
you there but you'll need nerves of 
steel to overcome the oil king of 
Dallas. 




Corn Cropper 

Limited cash and droughts are two 
of the problems facing the farmer. 
Planting, fertilizing and harvesting 
must all be done economically if you 
are to reap the rewards offered in 
Corn Cropper. You choose the 
method that will bring you success. 




BUSINESS STRATEGY GAMES - £6.95 



* 
• 



WITH OPTION TO 

Membershp£10 
"W For catalogue and membership form send name W 

* and address to if 

Rlckeoft, Dept. L, 78, Warren Drive, Hornchurch, . 

* Emm RM12 4QX. * 

* Tel: (04024) 47722 * 
**************** 



Selected titles available from Greens, Boots, Rumbelows and all 
good computer shops or Cases Computer Simulations Ltd., 
14 Langton Way, London SE3 7TL. 



m 




10 



ACORN PROGRAMS February/March 1984 




GOMUKO is a complicated form 
of noughts and crosses written 
for the BBC model B by D Stiles 
of Bristol. The object is to make lines 
containing five or more of your charac- 
ters, while your opponent tries to com- 
plete lines and also tries to prevent your 
lines being completed. Full instructions 
are included in the program. 



20REM 








30REM C. 


BY D.B. 


STILES 




40REM 4-FEB-83 






S0REM 








6QREM FORMATTED 


FIJI? BBC 


MODEL 


B GRAPHICS 






70REM 








60MODE ?■ D»«"! ! 


1 | 1 1 | t II 
| | | f f I 




90PRINT 


TRB< 12,2 


>D* i 09 




100PRINT 


TREK 5 >D* 


" BBC 


GOMUKO 



H D» 






110PRINT TABU 2 3 


0*;D* 




120PRIHT '"Move 


the cursor 


on 


the 9rid us&in9 the 


" ' " cursor 


arr 


o'wa. The cursor wi 


11 be 11 




130PRINT " for 


one Player 


-* X 


for the other. To 


."' " Place ■= 


i our 


mark P erfriarient I w 


Press the" 




140PRINT M 'COPY 


" key; the 


mar 


k PUced will be"' 


" the same 


as 



ACORN PROGRAMS February/March 1984 



11 



the cursor shape. " 


ii ii H ii ii H 


150PRINT '"The object of the 9 


440REM Play 9ame : arrows and ' 


ame is to Pl3.ee as"* 1 " many of yo 


roP y ' 


ar marks in a straight line" 


450REM 


16QPRINT " as you can, in any 


460REPERT 


direction (Aft in 1 "" 'NOUGHTS & C 


470K-GET 


ROSSES' >. You. require 5 or" 


480 IF K*13S THEN PROCPUT 


17GPRINT " more in a line to £ 


490 IF K=136 THEN PROCLEFT 


core > the more in"''" a line the 


500 IF K=137 THEN PROCRIGHT 


more you score < score is" 


51 OIF K-136 THEN PRGCDQWN 


18GPR1NT " number of marks in 


520 IF K-139 THEN PROCUP 


line minus 4>.'"'"To terminate t 


530UNTIL K«"flSC< "#>' ':> 


he 9ame Press '-& " 


540PRINT " ";15>*19-moves" node 


190PRINT '"Press any key to st- 


s left" 


art the 9ame"; 


550PRINT " Press sPace bar"; 


200K-GET 


560REPEP.T UNTIL GET**" " 


210REM 


570MODE ?■■ 


OO/aDCTM " M M 11 11 ** '* i* ** " *' " i' ** " 11 i> " '■ " " i' M m 


360PRINT T AEK 2 , 1 > ; 


II II II If u 11 


590PRINT "Would you care for a 


230REf1 set u.P variables etc. 


•nother 9ame? "i 


240REM 


600K»«GET*> IF KS="Y" OR K«»"« 


250 VDU 22 , 248 ,0,0,24, 36 ,36,36, 


" THEN 350 


24 , 


610IF K*<>"N" AND K*<>"n" THEN 


260VDU 23, 241 , 0, 24, 36, 66, 66, 66 


600 


, 36 , 24 


620PR1NT TAEX 6 , 1 5 > " THANK YOU F 


270DIM A<13,13>- REM state of 


OR PLAYING" 


board 


630T-TIME' REPEAT UNTIL TIME-T 


2S0x i Yicr« B 48 • y i. ncr-40 


>200 


290xbase=<140 ; ybase-0 


640MODE 7' *FX4,0 


300of f sx=24 ' of f M » 1 6 ' ex= 1 8 


650END 


3 1 0REM 


660REM >>>) THE E N D 


^^fiPFM 11 " M " " " (< H " " " " n '' n n " M n M M M fl ,f 


«.<<< 


n ii n n n ir 


670REM 


3'J0REM set UP new 9rid 


I' - " ft (■] P F M " " " " " " " " " " " " " " " " " " " " " " " " 


340REM 


If M If ff 11 If 


350MUDE 5 


690REM 'copy' key fixes Mark l 


360P I y r =0 : moves-0 ; to ta I o=0 : 


n 


total y.-*(d 


700REC1 Place and adds uP score 


370PRGCGR1D 


710REM 


388P x»y ! X«xb*se+ 1 0*x i ncr : XI- 


720DEFPRUCPUT 


X 


730LOCAL B"4 , C* , \)% , E5fi , W'K , W. , Q5j , 


390P y »9 • Y=y base+ 1 0*y i ncr ■ Y 1 ■ 


Ta 


Y 


740 IF AC P x , P y > > - 1 THEN ENDPROC 


400PR0CMflKEO< X, Y > 


750 IF Plur THEN PROLX ELSE PRO 


410*FX4ii 


CU 


420REM 


760tally«0 ! tote»8 


i-lOf'Sp f- hi " M H " M M M ,f fl " " M u " H " " H " '■ " M n " 


770PROC3EARCH1-1,0> 



12 



ACORN PROGRAMS February/March 1984 





&<$& 




780PRGCSEflRCH< 1 / > 

7*30 IF tote>S THEN tally«tallv+ 

tote-5 

800tote-e 

810PROCSEflRCH< 0, -1 ."> 
820PRQCSERRCH<0, 1 1 > 

63Q IF tOte>3 THEN t«llV"tAllv+ 

tote-S 

840tote»»0 

O50PRfJCSEflRCHf. -1,-1 > 

860PRQCSEflRCH< 1 , 1 :■ 

870 IF tote>3 THEN tall¥*tallv+ 
tote-5 

880tote=0 

890PROCSEfiRCH< - 1 , 1 > 

900PROCSEflRCH<l,-l > 

910 IF tote>S THEN tally«tally+ 

tote-5 

920MOves= e mGves+ j. 

930 IF Plar- THEN tota I x*tota I x+ 
ta 1 1 y ELSE tota I o*tota I o+ta 1 1 y 

948VDU4' CLS 

950PR I NT "PI au er " TflB< 8 ) " score " 

TflB<i5>"moves" 

960PR I NT " " TflB< 8 ) J tot* I o ; TAB-:. 
lb >)< moves 01 V 2>+move* NOD 2 

970PR 1 NT " X " TP,B< 8 > i tot* I x ; TfflSK 
15 >i Moves DIV 2 

9S0P I y r*mcve* MOD 2 

990ENDPROC 
1 000REM 

i fl 1 WPP hi " " " " " " M fl M lf f< " M " " M M M M ff M M " " 

H n n H H ii 

1020REM search for line of mark 

s 
1 030REM 
1040DEFPRUCSERRCH-;. s9mo s9m ) 

1050LGCPL Tfc 

1 060 I F FK P X+*9inx#Tfc , p y +s9ny *TJi > 
-Plyr THEN T««T5S+i ELSE CiQTU 109 



1070 IF Px+s9nx*T5s<0 OR Px+s9nx* 
T5S>18 THEN 1090 

1080 IF Pyn-s9ny*T?'.:>-l AND P«+S9in 
y*7>.<19 THEN I860 

1 890tote«»tQte+TJi 

1 1 00ENDPROC 



1 1 1 OREM 

1 1 9RPFM 1 ' !l M " " ,f M " " u !l lf " " M i( " " f< " '* " " fl 

M M ii H H ii 

1130REM left arrow moves cursor- 
left 
1140REM 

1150DEFPROCLEFT 
1 160X1 «X ! Y1=Y 

11 70 IF px>0 THEN Px»Px-l« X»"X-x 
iricr 
1180PROCCURSDR 

1190ENDPROC 
1200REM 

1 * J 1 I ifT'l" ("'1 f< M " " M " " " " " M M " " " " " " " M " H " " 

\\ ti ii w n ii 

1220REM n9ht arrow moves cur so 
r r i9ht 

1 230REM 
' 1 240DEFPROCR I GHT 

1250X1-X' Yi*Y 

1360 IF Px<18 THEN Px«Px+l ■ X=X+ 

xitucr 

1 270PROCCURSOR 
1 280ENDPRUL 

1230REM 

1 ■•JdPiPFM" " " " " " " " " " " " " " " " " " " " " " " " 
ii ii ii ii H ii 

1318REM down arrow moves cursor 
down 
1320REM 

1330DEFPRUCMJMN 
1340XI-X' Y1*Y 

1350 IF py>0 THEN P«-P«-l « Y*Y-v 
i Tier 
1 360PRDCCURSIJR 
1370ENDPRUC 
l 380REM 

1 '"■WHRfcTM M " " " " " " M M " " " " " " " " " " " " " " " 

ii n ii ii ii ii 

1400REM uP arrow moves cursor u 
p 

1410REM 

1420DEFPRGCUP 
1 430X1 ""X' Y1*Y 

1440 IF py<18 THEN P*»P*+1 < Y*Y+ 
y i ncr 
1450PROCJCURSOR 






ACORN PROGRAMS February/March 1984 



13 



1 460ENDPROC 
1470REM 

1 4SQPEM " " " " " " " " " " " " " " " " " " " " " (l " " 
if ii M ii H ii 

1490REM XCURS.OCURS u*e MRKEX,M 
RKEQ 

1500REM to Place and re-move car 

siors 
1510REM 

1 520DEFPROCCURSOR 

1530 IF Pl«r THEN PROCMCURS ELSE 

PR0C0CUR3 

1540ENDPRQC 

1550REM 

1 Sf^ripf^M ff fl fl " n H if " " n H >f " fi " n n n " f< " fi M tf 

II It ff If ff ft 

1 570DEFPRQCXCURS 
1 S80PROCMRKEX', X i > Y 1 > 
1 590PROCMflKEX< X > Y > 
1 600ENDPROC 
l 6 1 0REM 

i I- ^^fTlpf- M M lf |f " M M lf " " n " " u tf " " M " " M M " " H 
if if il if ii it 

i630DEFPROCMRKEX< X. Y > 

1640GCOL 4.3 

1650MOVE X+2#ex > Y+2#ex • DRRM X- 
2#ex.<Y-2#ex 

1660MOVE X+2*ex,Y-2*ex< DRAW X- 
2*ex < Y+2*ex 

1670ENDPROC 

1680REM 

1 1~ ^ripr^M " M " " " " " M n M N " u M M rr " m n n " ,r " m 
if f ti fi H M 

1 700DEFPROCOl:URS 
l710PROCMflKEO< XI , Yi > 
1720PR0CMRKEO< Y., Y > 
1 730ENDPROC 

1 740REM 

1 750REM " " " " " " " " " " " " " " " " " " " " " " " " 
ii M ii ii ii ii 

1760DEFPRQC MR-KECK X, Y ) 

1770GCOL 4,3 

1780MOVE X-of f sxi Y+of f sy 

1790VDU5' PRINT CHR4C241) 

1800ENDPROC 

1810REM 

1 R^t'lPFM n " n ff " ff '' tr ff M " " lf " " n " " M fl " H " " 
ii ii ii ii ii ii 

1830REM PROCXiPROCO fix marks t 
o 9rid 
1840REM 



1850DEFPR0CX 

1960PROCMRKEX<X.Y> 

1870GCOL 0,2 

1880MOVE X+ex.Y+ex' DRAW X-ex,Y 

1890REM 

1900MOVE X+ex/Y-ex' DRAW X-ex,Y 

1 9 1 0PROCMRKECK X ,Y > 
1 920A< P x , P y >■ 1 

1 930ENDPROC 

1940REM 

1 '^50l?tM " " " lf " " " " " " " " " " " " " " " " " " " " 
it ii ii ii ii ii 

1 960DEFPROCQ 

1970PROCMRKEO<XiY:- 

1980GCQL 0,2 

1990MOVE y.-of f sx, Y+of f sy 

2000VDU5 • PR I NTCHR4K 240 > 
20i0PROCMAKEX<X,Y> 

2020 A< P x , P y >=0 

203QENDPROC 

2040REM 

'"'lii l 5FlPFM " " " " " " " " " " " " " " " " " " " " " " " " 
ii H n ii ii ii 

2 069 REM create 9rid and in it. a 
rray 

2070REM 

2080DEFPROCGR I D 

2890VDU 23;8202i0;8;0 

2 1 00VDU 24 , xbase ; y base ; xbase+20 
#x i Tier ) y base+20#y i ricr ; 

2 1 1 0VDU 28 , jt , l 9 , 1 •■ OL S 

2 l 20GC0L 8 , 1 : CLC 

2130FOR N=l TO 19 

2 1 40MOVE xbase+N*x l nci- , y base 

2 l 50DRRW xbase+N*x i ncr , y base+y x 
ncr*20 

2 1 60MOVE xbase , y base+N*y i ncr 

2 1 70DRRW xbase+x i ncr#20 .. y base+N 
P.* i Tier 

2180FOR M*0 TO 18 < R^N-1.M>*-1 = 

NEXT M 

2190NEXT N 

2200ENDPROC 

2210REM 

2220REM" " " " " " " " " " " " " " " " " " " " " " H " 
H ii H M ii H 

2230REM XXV4 THE RB'iULUTE END % 



14 



ACORN PROGRAMS February/March 1984 




Win software in our 
great music contest 

The following pages contain four programs, each of which will play 
a tune on your BBC computer — a lullaby, a sea shanty, a folk song 
and a tune best-known as a TV signature tune. Choose one of those 
songs and write a program which includes it. 

The winning programmer will receive copies of Beeb-Art and 
Music Processor by Quicksilva and the winning program will be 
published in the next issue of Acorn Programs. Programs will be 
judged on use of the music, use of the machine and originality. 

Complete the entry form below and send it, together with a 
recording of your program and a brief description of it, to the 
address on the form. 



Name 

Address 

Send your entries, marked Music Competition; to 
Acorn Programs, 196-200 Balls Pond Road, London Nl 
4AQ to arrive not later than March 28, 1984. 



ACORN PROGRAMS Febntary/March 1984 



15 



BLOW THE MAN DOWN 






10 


FOR 1 - 1 


TO 


41 








20 


READ X 












30 


READ Y 












40 


SOUND 1 


,-15 


,X,Y 








50 


DATA 12 


1, 10 


,137/ 


10 


, 1 49 ,15, 


15 


i J -J J 


149, 10, 


137, 


10,12 


!l, 


10,137,1 


0, 


149; 


15,157, 


5, 149, 10, 


13 


7, 10 




60 


DRTfl 12 


5, 10 


, 137, 


10 


,149,30, f 


I'd 




7,30, 141,15 


,137 


,5,141, 


10, 129, 2 f 


70 


DATA 13 


7,10 


, 141, 


15 


, 137,5, 1 L 


41 


, 10, 


129, 10, 


117, 


10, 12 


'.9, 


10, 141,1 I 


0, 


137, 


10, 133, 


10, 1 


57,20 






30 


DRTfl 16 


9, 10 


, 153, 


15 


, 153,5,1 f 


53, 10, 


153,20, 


1 4 1 , 


10, 137, 


15, 129,5 1 


, 1 


37, 10, 121,2 













90 


NEXT I 











V 



/■ 



/*■ 



. i A M A K U ,, 



h$)2 



*H 



■^^ 



i 



*'# 






^*# 



>>« 



«8 




10 FOR 1=1 TO 75 

20 RERD y, 

30 READ Y 

40 SOUND 1,-15,X,Y 

50 DRTfl 109, 10, 129,10,2800, .5 
, 129, 10, 137, 10, 145,5, 157,5,2000, 
.5,157,15, 149,5,145, 10, 2000,. 5, 1 
45, 10, 137, 10, 129,20 

60 DATA 109, 10, 129, 10, 2000,. 5 
, 129, 10, 137, 10, 145,5, 157,5,2000, 
.5,157,15,149,5, 145, 10,2000,-5,1 
45,10, 137, 10, 129,20 

70 DATA 157,10, 2000 ,.5,157,10 



,145,10, 157,10,2000,-5,157,5, 149 
,5, 137,15,2000,-5, 137,5 

80 DATA 145,10,129,10,145,10, 
137,20, 109, 10, 129, 10,2000, .5, 129 
, 10,137,10,145,5,157,5,2000, .5,1 
57,15, 149,5, 145, 10, 2000,. 5, 145,1 
0,137,10, 129,20 

90 DATA 1 49 , 5 , 1 25 , 5 , 1 29 , 20 , 1 3 
7,5, 109,5, 129,20,2000,-5, 129,5, 1 
45, 5, 157, 10, 145,5, 129,5, 137,5, 10 
9,5, 129,20 
100 NEXT I 



16 



ACORN PROGRAMS February/March 1984 



10 FUR 1 = 1 TO 92 


,2000, 1 , 149,5, 165, 15, 149, 10, 157, 


20 READ « 


10, 2000, 1 , 157, 10, 2000, 1 , 157, 10,2 


30 READ Y 


000, 1,157,5,169, 15, 165,5,157,5 


40 SOUND i,-i5,X,Y 


80 DflTR 165,5, 177, 15, 169, 10,1 


50 DATA 12S? , 10 , 149 , IS , 2000 , l , 


65,5, 177, 15, 169, 10, 165, 15, 149,5, 


149,4,2000, 1, 149, 10,2000, 1, 149, 1 


157, 10, 149,20, 129, 10, 149, 15,2000 


0, 165,10, 149,10, 157,15,2000,1,15 


, 1 , 149, 5, 2000, 1 , 149, 5, 2000, 1 , 149 


7,5,2000, 1, 157, 10,2000, 1, 157, 10, 


,5, 165,15,149, 10 


169, 10, 157, 10, 165, 10, 157, 10, 149, 


90 DATA 157,15,2000,1,157,5,2 


10 


000, 1 , 157, 10,2000, 1 , 157,5, 169, 15 


60 DATA 177,10,169,10,165,10, 


, 165,5, 157,5, 165,5,177,15,169,10 


20O0, 1, 165, 10, 157, 15, 149,5, 157,2 


, 165,5, 177, 15, 169, 10, 165, 15, 149, 





5,157,10, 149,20 


70 DATA 1 29 , 5 , 2000 , 1 , 1 29 , 5 , 1 4 


120 NEXT I 


9, 10,2000, 1, 149, 10,2000, 1, 149, 10 






1W FUR 1=1 TU 32 
20 READ X 
36 READ Y 

40 SOUND 1,-15,.X,Y 
50 DATA 1 29 , 1 O , 1 45 ,10, 1 57 ,10, 
157, 10, 165, 10, 165, 10, 3.57, 10, 145, g 

10 

60 DATA 1 29 , 1 , 1 45 ,10,1 57 ,15, 
157,3, 149, 10, 145, 10, 137,20 

70 DATA 1 29 ,10,145,10,157, 20 , 
| 129,7, 145,3, 137, 10, 129, 10, 125, 10 
, 1 09 , 1 

80 DATA 129,10,145,10,1 57 , 1 5 
137,5, 149,5, 149,5, 145, 10, 129,20 

30 NEXT I 



CARS 





ACORN PROGRAMS February/March 1984 



17 



FOR 



BBC MICRO 



DEVOTED EXCLUSIVELY TO THE BBC MICRO 



MEMBERSHIP NOW EXCEEDS 20,000 
BRITAIN'S LARGEST COMPUTER USER GROUP 

20,000 members can't be wrong — BEEBUG provides the best support for the BBC Micro 
BEEBUG Magazine-NOW 64 PAGES devoted exclusively to the BBC Micro. 

Programs — Hints & Tips — Major Articles — News — Reviews— Commentary. 

PLUS members discount scheme with National Retailers. PLUS members Software Library. 

10 Magazines a year. First issue April 1982. Reprints of all issues available to members. 



SCREEN SHOTS FROM PROGRAMS 
IN BEEBUG 



ILLUSIONS 
OCT 1983 



MUNCHMAN 
OCT '83 




SPIDERS WEB 
AUGUST 1983 




3D SURFACES 
OCTOBER 83 



GIANT SCREEN 
CHARACTERS 
AUG/SEPT 1983 




ELIPT0 JUNE 1983 



GIRHT 
TEXT 

Oo you want to print thi»^ <u' n > _ 




Magazine programs now available on cassette to 
members at £3.50 inc: VAT & p&p — see issue for 
details. 



June Issue: Program Features: 'Return of the Diamond' A 16k adventure 
game, 'hedgehog' a well implemented 'frogger' type game, and Ellipto. Create 
your own off the shelf sound effects with Sound Wizard. Plus articles on Using 
Files, Rotating and Expanding Characters, Using Printers, and How to 
multi-program the User Keys. Reviews of The Hobbit Floppy Tape 
System, Adventure Games, and a Comparative Review of Word wise and 
View. Plus FX Call Update, Disc Program Auto-relocator, Wordwise 
Update, and more BBC Book Reviews. 

July issue: Games: Robot Attack (32k) and Anagrams, a 16k word game. 
Watching the Beeb at work — a sample program to show your micro at work. 
An introduction to discs - what are they and are they worth getting. Balloons 
— a coloured animation. Make your micro speak like Kenneth Kendal. Bad 
Program Lister lists programs even when the computer pronounces them 
'bad'. Reviews of Epson and Seikosha's new printers. Five books of programs 
reviewed, plus more software reviews. Using Files Part 4. A full disc sector editor 
program — to read and retrieve lost disc files, and how to modify Acornsoft's 
Planetoid. Plus hosts of useful hints. 

Aug/Sep Issue: Games; Space Lords (32k) a two-player space battle, and 
Mars Lander (16k). Build yourself a light pen a simple explanation for the 
beginner, together with a sample program. Use our "Contact Points for the 
Beeb" to discover who to contact when in need. We show how to put those 
'awkward' cassette programs onto disc. Final instaiment of our popular 5-part 
series on "Using Files" REVIEWS of MICRONET, Watfords Electronic's Disc 
Filing System, two EPROM programmers, and the tax advisory package 
"Microtax". This month's visual programs include Spider's Web, Super Large 
Screen Characters, Bounce and Swing. We also show how to hold two 
complete screen pictures at once, and switch rapidly between them in "Dual 
Screens on the Beeb". A Crossword, Brain Teaser and our 4th Software 
Competition provide a competitive edge to this month's magazine. We also have 
our very popular scattering of Hints and Tips. 

October Issue: Games: Munch Man, a Snapper type game with super 
graphics, Illusions graphics and sound you won't believe. A versatile 
Renumber program for Basic, Fabric Patterns, an invisible Alarm Clock, 
Disc Sector String Search and a program for drawing 3D Surfaces. 
Articles on the Teletext Mode for beginners. Compilers and interpreters, 
using Joysticks, using the Speech Synthesizer and more. Reviews of two 
Cassette Recorders {Marantz Superscope CI 90 and Acorn Data Record 
er), three Printers (NEC pc-8023B, STAR DP840 and CP 80). and lots of 
new games software (and we've arranged SPECIAL OFFERS for mem- 
bcrsl. Plus a review of the new Acorn Electron and news of our new 
magazine for Electron users called ORBIT. Plus all our usual features like 
Hints and Tips, Postbag, and a new Brainteaser. 

BEEBUGSOFT: BEEBUG SOFTWARE LIBRARY 

offers members a growing range of software from 

£3.50 per cassette, 

BEEBUG NEW OPERATING SYSTEM OFFER 

BEEBUG members can now obtain the new 1 2 OPERATING SYSTEM 

ROM at around HALF PRICE 

Asa result of BEEBUG negotiations with Acorn the ROM now may also be 

offered by other user groups to their members. 

1. Starfire (32K). 2. Moonlander I16KI. 3D Noughts and Crosses (32K). 3. 
Shape Match M6K). Mindbender (16KJ. 4. Magic Eel (32K). 5. Cylon Attack 
(32K). 6. Astro Tracker (32K). 

Utilities: 1. Disassembler (16KK Redefine (16K). Mini Text Ed (32K). 
Applications: 1. Superplol (32K). 2. Masterfile (32KI. 

13% DISCOUNT TO MEMBERS ON THE EXCELLENT WORDWISE 
WORD PROCESSING PACKAGE-THIS REPRESENTS A SAVING OF 

OVER £5.00. 



Send £1 .00 & SAE for Sample 

Membership: UK £5.40 for six months, £9.90 for one year. 

Overseas one year only: Europe £16.00, Middle East £19.00, Americas & Africa £21.00, Other Countries £23.00 

Make cheque to BEEBUG and send to: BEEBUG Dept 10, PO Box 109 Baker St, High Wycombe, Bucks HP11 2TD 

Send editorial material to: The Editor, BEEBUG, PO BOX 50, St. Albans, Herts AM 2AR 



I8 



ACORN PROGRAMS February/March 1984 




TYPE-IN this program and your 
computer will seem to show a 
preference for certain people. En- 
ter anybody's name and the computer 
will tell you whether or not it likes that 
person. When you think you have dis- 
covered the criteria on which the com- 
puter bases its choice, ask for a test. 
Written by Dr J Evans of Plymouth, 
Devon. 



10 REM NAMEGAME 

15 DIM fl*<8>,C*<8) 

20 CLS 

30 PRINT TFIB< 5,2) "Some People 

think we computers" ' "are Just to 
...chines. Well we have" ""FEELINGS 
mou know/ I can tell mou. " 

40 PRINT'" For example, s 
ome PeoPle I"'"like but others I 
can't STAND." 

50 PRINT'" If mou tell me 
the names of PeoPle"' "mou know, 
I will tell mou if I I ike" '"the 
m or not. When mou think mou kno 
w"' "which sort of People 1 like 
tMPe TEST"' "instead of a name, a 
nd I'll 9ive mou" 

60 PR I NT "a test. If mou want 
to 9ive up tMPe QUIT" 

62 PRINT '"MAKE SURE YOU HAVE 
CAPS LOCK ON" 



v 



>0 



70 REPEAT 

75 A-8-T-0 

80 INPUT W* 

90 IF WS«"QU1T" THEN PR I NT '"B 

luck next time. "'END 

IF W*="TEST" PROCtest 

IF Z>0 GOTO 170 

L«LEN< W* > 

FOR 1-1 TO L 

I F M I D*< W* , I 1 1 >*"fl " fl«fl+ 1 

IF MID*<W*,I,1>- M T" T-T+l 
15@ NEXT I 
160 IF <fl>6 AND T«0XjR<A=0 AND 



etter 

100 
105 
110 

120 
130 
1 40 



T>0> THEN PRINT '"Yi 
W* ELSE PRINT' "No* I don't like 
" ) Ui 

170 2-0 

172 UNTIL FALSE 

1 75' 

180 DEF PROCtest 

185 RESTORE 

200 T-0'2-0 

205 PR I NT '"Answer Y or N. " 

210 FOR 1-1 TO 8 

220 READ TEST* 

230 PRINT '"Do I like ";TE8T*J 

240 INPUT ASK I > 

250 IF flKIK>"Y" AND fll(IK>" 
N" GOTO 240 

268 NEXT 1 

270 FOR 1-1 TO 8 

275 READ C*< I ) 

280 IF fl«I)OC«(I) T-T+l 

290 NEXT I 

300 IF T-0 GOTO 340 

305 PR I NT '"You failed the test 
. "' "TrM aflain<Y/NV'j 

310 INPUT DEC* 

320 IF DEC*<>"Y" AND DEC*<>"N" 

GOTO 305 

330 IF DEC*-"Y" THEN 2-1'ENDPR 
OC ELSE END 

340 PRINT' "Well done, Mou've P 
assed the test." 'END 

400 DATA MARMAOUKE,TABITNA,RUM 
PLEST I LTSK I N t LEONORA , ATT I CUS , XER 
XES , PERSEUS , DEMETR I US 

410 DATA Y,N,Y,Y,N,N,N,Y 






ACORN PROGRAMS February/March 1984 



19 





YOUR SHIP appears on the left of 
the screen. Fly through space to 
pass through the Star Gate on 
the right of the screen. Move up with : 
and right with /. Your score will be 
given after 20 turns. 




10 MODE 5 

20 VDU £3; 8282; 8; 0j0 

30 

40 

50 

60 

70 



LET D»0 

LET B=0 

FOR 2*1 TO 20. 

IF Z"i THEN GUSUB 280 

IF BOO THEN CL8« GOSUB 



28 



a 



80 REM PRINTS SPACE SHIP 



90 VDU 23,241,24,60,126,255,2 
19,219,219,219 

100 B»10'fl*2 

110 FOR 1=1 TO 19 

1 20 PR I NT TfiB< <. ft- 1 > , (. B- 1 > > ; " " 

1 30 PR I NT TflB< < R- 1 > , B > ; " ") CHR 
*< 24 1 > 

140 PRINT TflB<fl-l,B+l>;" " 

158 REM MOVES SHIP 

160 LET G*«INKEY*<20) 

170 IF G*«'V" THEN LET B«B+1 

1B0IF 0*=":" THEN LET B-B-l 

190 LET fl*»fl+l 

200 IF fl=19 AND BOS AND BOS+ 
1F1ND 2O20THEN NEXT 2 

210 IF R*19 RND BOS AND BOS+ 
iflND 2=20THEN GOTO 250 

220 IF B=20 THENLET D-D+l 

230NEXT I 

240 NEXT Z 

250 CLS 

260 PR I NT "YOUR SCORE IS ";D 

270 END 

280 GCOLO, 1 

290 VDU 23 , 240 , 255 , 255 , 255 , 255 , 
255 , 255 , 255 , 255 

300 FOR Q-l TO 20 

310LET F=RND<20>' LET G«RND< 32 

320 PRINT TP,B<F,G>;"*" 

330 NEXT Q 

340 FOR X» 1 TO 30 

350 PRINT TflB<19,X>jCHR»<240> 

360 NEXT X 

370 LET S«RND<30> 

380 PRINT TPB<19,S)J" " 

390 PRINT TflB<19,<S-H)>j" " 

400 RETURN 



ACORN PROGRAMS February/March 1984 





YOU ARE a Baron, charged with 
providing food for your subjects. 
Each year you must plant food for 
the next year and give food to your 
serfs. If you over-feed your population 
it will increase rapidly and if you starve 
it you risk assassination. Can you sur- 
vive for 20 years? 



1 PRINT "YOU ARE A BARuN WHO HAS TUTAL CONTROL 01- HIS COUNTRY" 

2 PRINT "WITH EACH MOVE YOU MUST PLRNT FOOD FOR THE NEXT YEAR" 

3 PRINT "YOU CANNOT PLANT MORE FOOD THAN YOU HAVEOR MORE THAN TWICE YOUR POP 
ULATION, OR MORE THAN EIGHT TIMES YOUR LAND ACREAGE" 

4 PRINT "EACH VASSAL NEEDS FOUR BUSHELS OF CORN PER MOVE" 

5 PRINT" IF YOU OVERFEED YOUR POPULATION IT WILL CROW QUICKLY" 

6 PRINT "IF YOU STARVE MORE THAN A QUARTER OF THEPOPULATION THERE IS A CHANG 
E YOU WILL BE ASSASSINATED" 

7 PRINT 

8 PRINT 

9PRINT" CAN YOU SURVIVE FOR £0 YEARS?" 

10 PRINT "PRESS RETURN TO CONTINUE" 

11 INPUT Yi 

12 CLS 

13 PRINT "LEVEL 1 2 OR 3" 

14 INPUT J 
15*TV254 

16 LET J-3-J 

17 IF J-3 THEN STOP 
18IF J<0 THEN GOTO 14 
19 CLS 

A- 100 

B-100 

C-20 

1-1 TO 20 
'0 OR B<-0 OR C<«0 THEN GOTO S3 

M 



LET 
LET 
LET 
FOR 



20 
21 
22 
23 

24 IF A<« 

25 PRINT 

26 PRINT 

27 PRINT 
29 PRINT 
29 PRINT 



YOU HAVE "K21-I>j" YEARS TO GO" 
"POPULATION- ";A 
"CORN-"jBj" BUSHELS" 
"LAND - ";C;" ACRES" 
"CORN TO PLANT?" 



30 INPUT P 

31 IF P>B PR P>A*2 OR P>C*8 THEN GOTO 30 

32 PRINT P 

33 LET B«B-P 

34 PRINT "CORN FOR FOOD?" 
33 INPUT F 

36 IF F>B THEN GOTO 35 

37 CLS 

38 LET B»B-F 

39 IF P/6XC*3V4 THEN LET C»<C*5V4 

40 IF P/8«C*3V4 THEN LET C-<C*3V4 

41 LET F«fV4 

42 LET Z-F-A 

43 IF 2<A/4 THEN GOSUB 55 

44 LET A«A+Z 

45 LET Y-RND<6> 

46 IF Y<3 THEN LET B-B+P*J 

49 NEXT I 

50 CLS 

51 PRINT "WELL DONE SCORE-" jB 

53 PRINT "YOU LOST SCORE -0" 

54 RUN 

55 LET V-RND<3) 

56 IF V»l THEN PRINT "ASSASSINATED" 
57IFV-1THENRUN 

58 RETURN 






ACORN PROGRAMS February/March 1984 



21 




















PLAY the computer or challenge 
your friends in this electronic ver- 
sion of the pencil and paper game 
Hangman. Enter your word or let the 



computer choose one and then try to 
guess the word, letter by letter. Every 
time you make a mistake your man 
moves one stage nearer death. 



10MODE5 

20LET WDRDS^ IS REM WORDS-NUMB 
ER OF WORDS IN DATA STATEMENTS 
30PRINT TR6<&,15>;"1. ENTER W 



ORD" 

40PRINT'"2. 



CUMPUER 



' C! 



CHOICE" 



50LET D*' 
60 I T D»- 



GET* 

1" THEN 



76 IF D*«"2" THEN GOTO 90 

80GOTO50 

90RESTORE< 6999+': RND< WORDS > ) > 
100RERD WORD* 1 GOTO 130 
110CLS' PRINT TAB< 0, 15 ))" INPUT 
WORD" 

126 INPUT WORD* 

130CLS- RESTORE 5060 'LET L-LEN 
WORD* 

140LIMIT-9 

160LET TRY*- 1 

170LET C*=" 
130LET B*-"- 
:;>00FOR N=£ TO L 
210LET B*»B*+"-" 
22&NEXT N 

230 PRINT TRB< 0, 22 >; "TRIED sf_ 
FAR <- "; TRY* 

240PR i NT TflB< 0, 29 >; 8* 
250PRINT'" INPUT GUESS" 
260 INPUT G* 

270PR1NT Tm<Q*28>) H 






.ii ii 



. n 



28QIF LEN C*>1 THEN PRINT "ONL 



Y 



GOTO 110 



ONE FIT fl' TIME" 

290LET G*=LEFT*< G*, 1 ) 

300LET TRY**TRY*+C* 

310FOR N=l TO L 

320TF G*=MIO*cWORD*,N, 1 > THEN 
LET C*=C*+G* • GOTO 340- 

330LET C*=C*+MID*<B*,N,1> 

340NEXT N 

3-50 IF B*-C* THEN LIM1T-LIMIT+1 
'GOTO 1G00 

360LET B*=C*'LET C*="" 

370 IF WORD*OB* THEN GOTO 230 

390CLS ' RESTORE5010 

390FORF- 1 T02 ■ GOSUB 1100- NEXT 

400FQRF= 1 T04 ■ GOSUB 1 020 ■ NEXT 

4 1 0MUVE690 , 7 1 ■ DRRW700 , 700 - DRA 
W7l8,710 

420PRINT'"WELL DONE" 

430PRINT TRB<0,23>J 'GGT02033 

1000IF LIMIT*? OR LIMIT-8 THEN 

GOSUB 1100-GOTO360 

10101F LIMIT-13 THEN GOTO 2000 

1015GOSUB1O20 ' G0TO360 

1 020REHDX 1 , Y 1 , X2 , Y2 

1 030MO VEX 1 , Y 1 ' DRRWX2 , Y2 

1040RETURN 

1106 READX,Y,A,B 

1110VDU29,X;Y; 

U20MOVE CGS1*A,SIN1*B 

1 1 30FORC- 1 TO 1 39STEP6 

1 140DRAWCGSC*A, SINC*B 

1150NEXT 

1160VOU29,0;0; 

1170RETURN 

2000MOVE650, 750 ' DRRW750, 025 

20 1 0MOVE690 , 700 ■ DRRW700 ,710- DRfl 
W710,700 

2O20PRINT TAB<0,22>; 'FCRC-1TG9' 
PRINT" "j 'NEX 

T 

2030PRINT TRB<0,22>;"BRD LUCK" 

2035PRINT'" THE WORD WAS '-""WO 
RD* 

2040PRINT'"DO YOU WRNT ANOTHER 
GO?" '"PRESS Y OR N" 

2O50D*-GET*'IF D*-"Y"THEN RUN 

2060IF D*-"N" THEN END 

2070GGTG2050 

3000DATR400 , 400 , 800 - 400 * 500 1 400 
. 500 , 800 , 400 j 400 , 500 , 500 , 500 , 800 
, 700 , 800 , 500 , 700 j 600 , 800 , 760 , 800 
,700/750 

5010DATR700, 715, 35, 35, 700, 590, 4 
0,90,680,505,650,430,720,505,750 
,430,670,650,600,675,730,630,800 
,675 

9000DATA COMPUTER 

9001DRTR MACHINE 

9002DRTA BBC 

9003DRTA ANSWER 

9004DATA CHOPSTICKS 

9005DATA YACHT 

9S06DATA GYPSUM 

9O07DRTR NONSENSE 

90O8DATA ETHER 

90O9DATA MANUAL 



22 



ACORN PROGRAMS February/March 1984 







10 

20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
369 
370 
3B0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



VDU 23j&202.0;0;0; 

PROL i nstruct ions 

H-0 

S«=0 

L-10 

CLS 

*FX 11*8 

X-10 

Y-14 

PRINT TRB<0.0>J M 

PRINT TRB<0.15>" 

K-RNEK17? 

IF K<3 THEN GOTO 

FDR Fl-l TO lb 

FOR T-l TO 100 

NEXT T 

PRINT TRB<K.R>j" 

PRINT TRACK, fl-l); 

R»-INKEY«<0> 

IF fl«*"Z" RND X>1 THEN X-X-l 

IF A*-'V" AND X<17 THEN X-X+l 

PRINT TRB<X.Y>j"uPz" 

SFX 15/0 

NEXT R 

IF K-X+l THEN PROC»eor* ELSE PROCUvm 

GOTO 100 

DEF PROC*cor» 

SOUND 1.-15,150.1 

6-3+100 

PRINT TRBC23,0)j "Score ^"jS 

IF 8>H THEN H-S 

PRINT TRB<23,5>j"Hl-Scor« ^"jH 

ENDPROC 

DEF PRQCliv»» 

L»L-1 

SOUND 0,-15,50,2 

PRINT TRBC23.10>j"L1vm-"jL 

IF L<1 THEN PROCfini»h 

ENDPROC 

DEF PROCrinl»h 

PRINT TRBCB, 15); " HIT THE SPACE-BAR 

TIME-0- REPEAT 'UNTIL TIME>30 

SOUND 1,-15, 30, 5 'SOUND 1 , -15,50. 5 'SOUND 

G-GET 

IF G-32 THEN GOTO 40 ELSE GOTO 440 

DEF PROClnfttructlon* 

CLS 

PRINT TRB< 11,4>jCHR«< 141 >;CHR«( 134 )j "BANK 



FUR ANOTHER GO" 



1,-15,20. 10'SOUND 1.-15,50,5 



ROBBER" 'PRINT TAB< 1 1 , 5 >> CHR» 



1 > ) CHRX 1 34 ) J " BRNK ROBBER " 

1490 PRINT TRB<3,9)jCHR«<129>i"You 



*nd *aur Partner in crime 1 



500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
600 

69e 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

G-CET 

CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

G-GET 

ENDPROC 



II ? 



TRB<0,10)jCHR«<129>j 

TRB<0, 

TAB<3,13)jCHR«< 130 >; 

TAB<0,14>)CHR«<130>J 

TABO, 16)jCHR»< 131 )J "You 

TRB<0,17)jCHRB<131)j 

TRB<0, 18)jCHR«< 131 )> 



h*v# ju*t r*id«d a u»ll 



"Fred 



chuck infl" 



Fr«rd BloQft*' 
11 );CHR8C 129 )j "known bank." 

Blo99s is at the top 
out of the window*." 
Oet ten live* to »t*rt with and 1 
vou lo»e one life for every b&9 nou. 1 



mi 



TAB< 11,23>jCHR»< 135>;CHR«C 1 36 >t "PRESS ANY KEY" 



TABC3,5>jCHR«033>j"EverM bav contain* one hundred" 
TAB<0.6>jCHR«< 133 >; "Pound* and wou mu*t catch a* much money 
TABC0,7>jCHR« 133)j "a* Po**ible before vour live* reach" 



your bucket with 



TRBC 0, B >> LHR«< 133 >i "zero. ■ 

TABC 3 , 1 ) i CHR«C 1 34 > i " You contr o I 

TAB< 12, 12 >) "Z LEFT" 

TAB<12,14>;'V RIGHT" 

TAB<10,23>jCHR«K135>)CHR»C136>j "PRESS ANY KEY" 



n 



YOU and your friend, Fred, have 
just robbed a bank. Fred is throw- 
ing bags of money out of the 
window and you must catch them in 
your basket. Move left with Z and right 
with /. You will lose one of your 10 lives 
for each bag you miss. Graphics charac- 
ters are underlined. 

Line 100 following the first quota- 
tions mark type two spaces, control (2 
and then 17 bs. Line 170 following the 
first quotation mark, type (5 and then a 
£ sign. Line 220 following the first 
quotation mark control B, then upz, 
then shift 7. Line 410 following the first 
quotation mark shift f6 and then type 
the words as shown. 

Bank Robber was written by Alex 
Segre of north London. 



ACORN PROGRAMS February/March 1984 



23 





Make learning fun with these top quality educational games! 



Monty - an intro- 
duction to coins and 
notes and their use 
n shopping 
4*10 yrs 
(Spectrum 
48k 



MltiJng Words - 

watch the train move 

forward when you W 

type in the 

nght word 

4-10 yrs 

(Spectrum 

46k) 



Maths ^ 
in viwlori - 
answer the 
questions correctly \ 
or the invaders will 
land on you 4-l2yrs 
(Spectrum I6/48k i 
BBC B. Electron) 




Identikit - 

choose from 

a range o' 

features and build 

up a (ace on the 

T screen 2-8 yrs 
(Spectrum 48k ) 




Micros lor 

Children 1. a set ot 

tour educational games for 

children of 3-8 yrs Excellent 

value (Spectrum 16/48k ) 



RailroKtar 

lay track on 

the screen in 

any layout you 

want 4-10 yrs 

(BBC B. Electron; 



Spectrum programmes £6.95 BBC/Electron programmes only £7.95 

Ask for Stell Software at larger branches of Boots, John Menzies, W. H. Smith 
and all good computer shops, where most titles are available. 



K& to S-taifcm 

Stell Software 36 Limefield Ave, Whalley, Lanes, BB6 9RJ. 



24 



ACORN PROGRAMS February/March 1984 






YOUR AIM in Escape from 
Time, an adventure game, is to 
escape from the time and space in 
which you have been stranded, to your 
own world. To do so you must find the 
crystal of power and a microchip to 
power your time machine. Once you 



have them you must take them to the 
Time Room to use them. 

Commands you will use most fre- 
quently are north, south, east, west, up 
down, enter, leave, look, take, drop, list 
and open. 



5MUPE 4 

1SPR1NT"THE UUJECT IS TU ESCfl 
PE BACK INTO YUUR OWN TIME THRU 
UGH A TIME MACHINE. TU FLY THE M 
ACHINE, fl PROGRAMED MICRO-CHIP A 
NO THE CRYSTAL OF POWER ARE NEED 
ED. 

CUUD LUCK ! " 



y 



20IF O<3>-0 THEN UJTO lbS 
30N-0 ■ S-G ' E-0 • W-0 ' U-0 ' D-0 ; EN- 
L-& GOSUEK 2000+'- MR*10 >+5 > 
40MR-0 MM-RND<8) 
30 IF MM-6 AND NOB THEN MR-N 






60IF 

70IF 
80IF 

*0IF 



MM-5 
MM-4 
MM -3 

MM-2 



AND SO0 THEN MR-S 
AND tOU THEN MR-E 
AND WO0 THEN MR-W 
AND UO0 THEN MR-U 



100IF MM-1 AND DO0 THEN MR-D 
U0IF MM-7 AND ENO0 THEN MR-E 



N 



THE 
'X- 



210 
THERE 



120IF MM-8 AND LOO THEN MR-L 
130IF MR-0 THEN GOTO 40 
140IF MR-R THEN PRINT'" IN 
ROOM WITH YUU IS THE MUMMY I 

X+l 

150 IF X>-i THEN GOTO 12S0 
135N-0 - S-0 ' E-0 ■ W-0 ' U-0 • D-0 ' EN 

• L-B i GGSUB< 2000+-. R*10 > > 
1602-0 

170FOR F-1T012 
180 IF CXFX>R THEN GOTO 
190IF 2-0 THEN PRINT'" 

IS ALSO'-" 

2002-1 'PRINT" ";CaKF> 

210NEXT 

220 INPUT" WHAT WILL YOU DO ? 
"fl«< RESTORE 91Q0' PRINT" > "jA* 

230FOR C-1T029-READ D* IF LEN 
D»-2>LEN fl« THEN GOTO 250 

2401F MID»(D»/3>-LEFT»'.A*,LEN 
DS-2> THEN C-40' NEXT -GOTO 280 

250NEXT C 

260PR1NT' "INVALID COMMAND. " ' fJU 
TU 220 

270PRINT' "COMMAND CANNOT BE CA 
RRIED OUT. "-GOTO 220 

260Z-VAL LEFT*'.D«,2> 

290CUTU <2y0+<Z*10>> 






ACORN PROGRAMS February/March 1984 



25 




291G0TG 1400 
295GOT0 1340 

30Q IF B>">8 THEN PRINT'" YOU CA 
N'T CARRY ANYMORE. " 'GOTO 220 
31 ©FOR F-1T012 
320 IF C<F>"R THEN GOTO 340 
330NEXT F' PRINT'" I DON'T SEE 

IT I " 'GOTO 220 

340 IF LEN A*-5>LEN C«<F> THEN 

GOTO 330 

345IF LEN fl«<fa THEN PRINT'" TA 
KE WHAT ?"»F«20 ! NEXT 'GOTO 220 

350TEMP*-C*<F>'IF MID*Cfl»/6>L 
EFT*< TEMP*, LEN A*-5 > THEN TEMP-f 
. F-20' NEXT 'F-TEMP- GOTO 37© 

360GOTO 330 

370FOR G-1T04 

3 75 TEMP* -BK G ) 

3B0IF LEFT*<TEMP*,1 :>«" " THEN 
GOTO 400 

390NEXT G'END 

400B*< G >-C»< F > 

410B-B+1 

420C< F >0 

430PRINT'" OKAY." 

440TEMP-G ' U-10 ' NEXT ■ G-TEMP ' F-0 
•GOTO 220 

450FOR G-1T04 

460 IF LEN A*-5>LEN B*<G> THEN 
GOTO 480 

465IF LEN A*<6 THEN PRINT'" OR 
OP WHAT ?"'GOTG 440 

470TEMP«-B«KGWF MIWKMj6>»L 
EFT*< TEMP*, < LEN A*-5 ) ) THEN GOTO 

490 
480NEXT' PRINT'" YOU DON'T HAVE 

IT I" -GOTO 220 

490B-B-1 

500FGR F-1T012 

510IF C<F>0 THEN GOTO 530 

520NEXT - END 

530C< F >-R = C*< F >-B*<: G > ' B»<. G >*" 

M 

540F-20' NEXT ■ GOTO 430 

550RESTORE 9200 

560FOR G-1T04 

570TEMP*-B*<G>'IF LEN A*-4>LEN 
TEMP* THEN GOTO 590 

575IF LEN A*<5 THEN PRINT'" US 
E WHAT ?"'G*lO' NEXT 'GOTO 220 

580 IF M1D*<A*,5:>*LEFTSKTEMP*A 
LEN A*-4.V> THEN GOTO 600 

590NEXT' PRINT'" YOU DON'T HAVE 
IT I" GOTO 220 

6U0FOR H-lTUlQ'READ E* 

6 10 IF VAL LEFT3KE*,2:"*R THEN G 

UTO 630 

620NEXT* PRINT'" YOU CAN'T IN H 

ERE. " ' G'«10 ' NEXT ' GOTO 220 

630TEMP*~B*< G > ' I F Ml WK E* , 3 >< > 
LEFT*'. TEMP*, '.LEN E«-2>) THEN GUT 

U 620 

63S5H-20 ; NEXT ■ G=10 : NEXT 
640GOTO C<VAL LEFT*tE*/2>>*10I» 

+3000 

650G0TU 20 

660PRINT'" YOU ARE CARRYING, " 

670C=1 
680FUR F*lT04 

685TEMPS*=B*<F> 

690IF LEFT*< TEMPS, 1 >'" " THEN 
GOTO 720 

700PRINT " "jEMKF) 

710G-0 

720NEXT F 

730 IF G-l THEN PRINT" NOTHING- 

II 

740G0T0 220 

750IF N»0 THEN GOTO 1180 

760R-NGOTO 20 

770IF S=0 THEN GOTO 1100 

790R-S'GOTO 20 

790IF E*0 THEN GOTO 1180 

S00R-*E'GOTO 20 

810 IF W™0 THEN GOTO 1180 

820R*»W'GOTO 20 

830 IF U-0 THEN GOTO 1130 

840R-U'GOTO 20 

850IF D«0 THEN GOTO 1180 

868R-D ' GOTO 20 



870IF EN=0 THEN GOTO tl©@ 

860R-EN'GGTO 20 

890 IF L«0 THEN GOTO 1180 

900R=L'GOTO 20 

yi ©CLEAR END 

920 IF R=8 THEN GOTO 940 

930IF ROll THEN GOTO 1240 

935R-8'G0T0 950 

940R-11 

950 PRINT'" THE ROCK FALL OPEN 



3 AND YOU WALK 



THROUGH" 'P 



ROCPAUSE< 2 > 
960GUT0 20 
970IF R<>12 THEN PRINT'" YOU C 

AN' T." -GOTO 226 
971F0R F~1T04 
980 IF B»(F>>"WUUD" THEN GOTO 1 

000 

990NEXT' PRINT'" YOU DON'T HAVE 
ANY WOOD." 'GOTO 220 
1000B*<F>-"LADDER" 
1010PRINT"* YOU'RE A GENIUS !" 
1015F«10'NEXT 
1020GOTO 660 
1030FOR F-1T04 

10401F B*<F>-"CAN OF 01L"THEN G 
OTO 1060 
1050NEXT •PRINT'" YOU DON'T HAVE 

ANY OIL. "'GOTO 220 

1060O<5)-1 

1070PRINT'" THE BUTTON IS LOOSE 

" 'F-10' NEXT GOTO 22© 

1080IF R<>3! THEN GOTO 270 

10B5FOR F-1T04 

1090IF B*CF>«"HAIR PIN"THEN GOT 

1110 
1100NEXT' PRINT" 1 YOU NEED SGMET 

HING TO PICK THE LOCK WITH." 

•GOTO 220 

1110Q<4>»1 

U20PRINT'" THE DOOR IS OPEN."' 
EN-35'F-10' NEXT 'GOTO 220 

11 30 IF R«35 OR R=-43 THEN GOTO 
1135 

1134PRINT'" I DON'T SEE A BUTTO 
N ! " 'GOTO 220 

1135IF 0<5>1 THEN GOTO 1160 

1140PRINT'" THE BUTTON IS TOO S 
TIFF TO PUSH." 

1150G0T0 220 

1160R-37 

1170PRINT"* THE LIFT RISES. "'GO 

TO 20 
1180PRINT'" 

AY."'GOTO220 
1190RESTORE 9O0O DIM 0<5>'D1M B 

*<:4):DIM C<12>'DIM C»<12> ! F0R F= 

1T04'B*<F>" "'NEXT 
1200Y*O' YY=0'X-O'MP=21 ; B=1 'R-l 
1210F0R F«1TU12'READ A*,G 
1220C< F >-G - C»< F >-fl* ' NEXT 
1230 FOR F-1T016- PRINT"******** 

****ESCAPE FROM TIME************ 

" i NEXT ' PROCPAUSE< 10 > ' CLS ■ GOTO 15 
1235DEF PROCPAUSEC T > 'TIME-0'RE 

PEAT - SET-TIME^lOO = UNTIL SET-T ' EN 

DPROC 
1240PRINT'" NOTHING HAPPENS. "'C 

OTO 220 

1 250PROCPAUSE< 2 > ■ CLEAR ' PR INT'" 
THE MUMMY CATCHES YOU AND TAKES 
YOU PRISONER OF HIS DOMAIN. 
THERE IS NO ESCAPE FOR YOU.. 
SORRY !"'P1T«0 

1260SOUND 1,-15,97+PIT, 10 SOUND 

1,-15, 105+PIT, 10 > SOUND 1,-15,89 
+PIT, 10'SOUND 1,-15,41+PIT, 12'S0 
UND 1 , -15, 69+PIT, 20 ' PIT-C < PIT*© > 
*28>'PR0CPAUSE<5>'G0T0 1260 

1270IF R«21 THEN 0<3>-l 

12Q0IF R-4 THEN OC 1 >1 

1290IF R<>21 AND R<>4 THEN GOTO 

1330 

1300IF R-21 THEN PRINT'" THE MU 
MMY CASE OPENS RELEASING THE 
MUMMY FROM IT'S TOMB." 

1310IF R-4 THEN PRINT'" THE DOO 
R SWINGS OPEN." 

1313IF R-4 THEN EN=14 

1320GOTO 220 



YOU CAN'T GO THAT W 



1330PRINT'" YOU CAN'T. " 'GOTO 22 



1340IF R»MR THEN GOTO 1360 

1350PRINT'" YOU CAN'T. "'GOTO 22 


1360FOR F-1T04 

1370IF B*<F>="KNIFE"THEN GOTO 1 
390 

1380NEXT'GOTO 1350 

1390 PRINT'" YOU STAB THE MUMMY 

AND IT DISINTERGR 

ATES AT YOUR FEET. " '0< 3>-0 'MR=0 ■ 
F-10' NEXT 'GOTO 220 

1-400PRINT'" YOU ENTER INTO ANOT 
HER ROOM THROUGH THE MIRRuR. 
'* ' R-29 ■ E"0 ' GOTO 220 

2005EN-27' RETURN 

2010PRINT'" YOU ARE AT A CROSS 
ROADS IN THE PASSAGE." 

2015N-2 ' S=9 ' W=8 ■ E-3 ' RETURN 

2020PRINT'" YOU ARE AR A JUNCTI 
ON WHERE YOU CAN GO NORTH, WEST 

OR SOUTH. '* 

2023N-5 ' W-7 ' SOI ' RETURN 

2030PRINT'" YOU COME TO A JUNCT 

ION IN THE PASSAGE WHERE THE E 

XITS ARE WEST AND NORTH. AN OPE 

N DOOR IS IN THE EAST END OF THE 

PASSAGE." 

2035N-4 ' W-l ' EN=»13 ' RETURN 

2040PRINT'" THE PASSAGE COMES T 
A DEAD END APART FROM A DOOR 

TO THE EAST. "> 

2041IF O<1>=0 THEN PRINT"THE DO 
OR IS LOCKED TIGHT." 

2042IF 0C1>-1 THEN PRINT"THE DO 
OR IS WIDE 0PEN."-EN-14 

2045S-3' RETURN 

2050PRINT'" AT A TURNING IN THE 

PASSAGE, STEPS GO DOWN. THE P 
ASSAGE GOES SOUTH AND EAST." 

2055S-2 - E-6 - D« 1 • RETURN 

2060PRINT'" A HIGH WALL SEEMS T 
U PREVENT YOU FROM GOING EASTW 
ARDS. TO THE WEST THE WAY IS CLE 

HR " 

2065W«5 ' RETURN 

2070 IF OC2>0 THEN PRINT'" THE 
FLOOR 13 COVERED IN GREASE AND A 
S YOU" TRY TO GO OVER IT, YOU S 
LIP BACK. IT LOOKS AS IF YOU W 
ILL HAVE TO GO EAST." 

2073 IF 0C2>«1 THEN PRINT'" YOU 
ARE IN A CLEAN EAST-WEST PASSAGE 
W-12 
I75E-2' RETURN 

2080PRINT'" A SHEET OF ROCK BLO 
CKS YOUR WAY TO THE WEST SO EX I 
T TO THE EAST.*" 

2085E-1 'RETURN 

2090PRINT'" YOU COME TO A JUNCT 
ION IN THE PASSAGE. DIRECTIONS 
ARE NORTH, EAST, AND SOUTH." 

2095N«1 ' S=17 ' E=15 ' RETURN 

21O0PRINT" 1 AT THE BOTTOM OF TH 
E STEPS IS A CELLAR. THE ROOM IS 

PRETTY MUCH EMPTY AND VERY DIR 

TY. " 

2 105U-S' RETURN 

2U0PRINT'" YOU ARE IN A POOM W 
ITH A TABLE IN THE CENTRE OF I 
T. BEHIND YOU THE ROCK FACE IS 
CLOSED. " 

2115RETURN 

2120PR1NT'" YOU ARE IN A I40RKSH 
OP. TOOLS HANG AROUND THE 
WALLS AND A WORKBENCH IS IN THE 

CENTRE." 

2125L-7' RETURN 

2130PRINT'" YOU ARE - IN THE LIVI 
NG QUARTERS OF A CREATURE. A 

FIRE PLACE IS IN THE CORNER OF 
THE ROOM." 

2135L~3' RETURN 

2140PRINT'" THROUGH THE DOOR YO 
U FIND THAT YOU ARE IN A LIBRAR 
Y. BOOKS ARE STACKED NEATLY ON 
SHELVES THAT ARE VERY HIGH." 

2 145L=4' RETURN 

2150PRINT'" YOU COME TO A RIVER 



II 



2075E' 



26 



ACORN PROGRAMS February/March 1984 




FLOWING NORTH TO SOUTH. ON T 
HE BANK IS fl BOAT. YOU CAN RET 
URN TO TH WEST." 

2 155W-9' RETURN 

2160PRINT'" YOU ROW THE BOAT AC 
ROSS THE RIVER WHERE YOU ENTER A 

CAVERN. YOU BOARD LAND AND LEA 
VE THE BOAT ON THE BANK." 

2165RETURN 

2170PRINT'" YOU ARE AT THE TOP 
OF SOME STEPS. A PASSAGE L 
EADS NORTH. " 

2175D-16 • N-9 « RETURN 

2180PRINT'" YOU ARE AT THE BUTT 
OM OF THE STEPS. A CORRIDOR 
GOES NORTH AND A DOOR IS IN THE 

WEST WALL." 

2185U-17'N«19'W«20 RETURN 

2190PRINT'" YOU ARE IN THE CENT 
RE OF SOME PASSAGES. THEY GO NOR 
TH, EAST AND SOUTH:" 

2 1 93E-23 ^ N-2 X ■ S"18 « RETURN 

2200PRINT'" YOU ARE IN A BROOM 
CUPBOARD." 

2205L-lQ ; RETURN 

2210PRINT'" YOU ARE IN AN EGYPT 
IAN ROOM. R MUMMY CASE STANDS 

IN THE CORNER. ON IT IS INS 
CRIBED ~t*fcft<*>:" EXITS ARE SOUTH 
AND EAST." 

2212IF 0<3>«1 THEN PRINT'" THE 

MUMMY CASE IS OPEN AND EMPTY.... 
I » 

22 14 IF CK35-1 THEN EN=27 

22l^S"l9 « E=22 ' RETURN 

2226PRINT'" YOU COML TO A DEAD 
END IN THE PASSAGE. THE OMLY WA 
Y BACK IS WEST." 

2225M-21 'RETURN 

2230PRINT'" THIS PASSAGE IS CLO 
SED OFF AT THE END. 
NREADAbLE ON THE WALL 
THE WEST." 

2235W-19- RETURN 

2270PRINT'" YOU ENTER THROUGH T 
HE MUMMY CASE AND iT SWINGS SHUT 

TIGHT! YOU ARE NEAR THE END OF 
YOUR ADVENTURE. HAVE YOU GOT THE 
CRYSTAL OF PuWER AND THE MI 



f\ SIGN IS U 
EXIT TO 



HEM IN THE RIGHT ORDER." 

227 I PR I NT'" IF YOU DON'T HAVE 
HE OF THEM OR EITHER OF THEM THE 
N YOU ARE LOST." 

2275RETURN 

2280PR1NT'" A HIGH WALL IS TO T 
HE WEST. ON THE LEFT OF THE PASS 
AGE IS A MIRROR IN THE WALL. TO 
THE EAST YOU CAN SEE A TURNING I 
N THE PASSAGE." 

22B5E-30 ' RETURh 

2290PRINT'" A MIRROR IS IN THE 
WALL BEHIND YOU. THE ROOM YOU AR 
E IN IS AN ARMOURY. A DOOR IS 
OPEN TO THE EAST." 

2295L-28 ■ EN-36 ' RETURN 

2300PRINT'" YOU ARE AT A BEND I 
N THE PASSAGE. YOU CAN GO SOUT 
H OR WEST. " 

2305W-28 ■ SOI ' RETURN 

2310PRINT'" THE PASSAGE ENDS IN 

A DOOR. YOU CAN GO BACK NORTH 
IF YOU NEED, "i 

2311 IF U<4>«0 THEN PRINT"THE DO 
OR IS LOCKED." 

2312IF 0<4>-l THEN PRINT"THE DO 
OR IS OPEN." 

2313IF 0<4>-l THEN EN-33 

2315N-30* RETURN 

2350PRINT"* IN THE ROOM IS A LI 
FT. THE BUTTON IS ON THE WALL BY 

IT. AN OPEN DOOR IS THE EX1 
T FROM THE LIFT ROOM." 

2353L-38 ■ RETURN 

2360PRINT'" IN THE ROOM IS A DR 

ESSING TABLE." 
2365L-29* RETURN 

237GPRINT'" THE LIFT OPENS UNTO 
A HALL. YOU CAN GO BACK DOWN 

R EAST." 
2375D-43 : E-38 ■ RETURN 
2380PRINT'" YOU ARE STANDING AT 
A JUNCTION. YOU MAY GO NORTH, W 

EST OR SOUTH." 
2385W-42 : N-39 : S»48 RETURN 
2390CLEAR : PRINT'" YOU FALL INTO 
A PIT COVERED UY FLOUR TILES 

-AS THEY OPEN UNDER YOUR TEET YO 

U TRY TO GRASP THE EDGE OUT MIS 



CROCHIP? IF YOU HAVE THEN USE 7 S AND FALL TO YOUR DEATH. " - PRUCP 



ruse< e > 

2395G0T0 1268 

2400PRINT'" YOU WALK INTO A ROU 
M AND ON THE FLOOR YOU SEE A T 
PAP DOOR. YOU WILL HAVE TO GO 
BACK NORTH, BUT ONLY ONuE. " 

2405N-38 : S*4 1 ; RETURN 

241OG0T0 2390 

2420PRINT'" YOU ARE BACK AT THE 

LIFT. YOU CAN ONLY GO DOWN OR 
BACK EAST." 

2425E-38 ' D-43 ' RETURN 

243GPRINT'" THE LIFT OPENS ONTO 

THE GROUND FLOOR. A DOOR IS OPE 
N IN THE WEST WALL OF THE ROO 
M. PUSH THE BUTTON TO GO BACK UP 

2435L-39- RETURN 

3060PRINT'" THE LADDER REACHES 
THE TOP OF THE WALL AND YOU CL1 
MB UP IT. ON TOP OF THE WALL YOU 

PICK IT UP AND USE IT TO GET DO 
WN THE OTHER SIDE. " 

3065R-28 GOTO 220 

3070PRINT'" THE GREASE WASHES 
FF THE FLOOR MAKING IT CLEAN." 

3075O<2)-1 GOTO 20 

3150FGR F-1T04 IF B«F>- M OflRS"T 
HEN GOTO 3153 

3151NEXT 

3152CLEAR'PR1NT'" THE BOAT DRIF 
TS DOWN STREAM AS YOU DON'T 

HAVE ANY OARS. AS YOU DRIFT YOU 
HIT YOUR HEAD AND FALL OVERBO 
ARD. UNABLE TO REACH THE B 
ANK,YOU DROWN. "GOTO 239b 

3153PR1NT"' YOU ROW THE BOAT TO 

THE OTHER BANK. " «F«-10 ■ NEXT 

3154IF R-15 THEN GOTO 31^7 

3I55R«1S'GQT0 20 

3157R-16-G0T0 20 

3160UOTO 3150 

3180PRINT'" THE DOOR UNLOCKS AN 
D FALLS OPEN. "'EN-20- GOTO 220 

3210PRINT'" THE WRITING UN THE 
MUMMY CASE SAYS "BEWARE". " < 
GUTO 220 

3230PRINT'" THE SIGN SAYS "USE 
THE WORDS OPEN SESAME IN 7 
HE RIGHT PLACE AND YOUR WAY W1L 



ACORN PROGRAMS February/March 1984 



27 



i 














L BE CLEARED. -"'GOTO 220 

3270 IF MID«<A*,5>«"MICR0~CHIP" 
OR MID«<A«,5>»"M" fPND YY-1 THEN 
GOTO 3320 

3275G0T0 3380 

3260PRINT'" YOU CLIMB OVER THE 
WALL. M 'R»5- GOTO 20 

323© IF MID*< A», 5 >«" CRYSTAL" OP 
MIDS<A»,5-"C" AND Y=l THEN GOTO 
3350 

3300 IF MID»< A*, 5 >=" CRYSTAL" OR 
MID*<A«,5;>«"C" THEN YY-1 

3310GOTO 220 

3320CLEAR- PRINT'" AS YOU REACH 
IN AND CONNECT THE MICRO -CHIP 
.POWER FROM THE CRYSTAL IMMEDIAT 
LY KILLS YOU. BAD LUCK ! " ■ GOTO 2 



395 

3350CLEAR PRINT'" THE CRYTAL SL 
IPS INTO PLACE AND THE MACHI 
NE BEGINS TO SHAKE, YOU FALL 

UNCONCIOUS AND WAKE UP TO FIN 
D YOUR -SELF BACK HUME IN YU 
Uft OWN TIME. WELL DONE INDEED!" 

3360FOR F-1T0 15 'SOUND 1,-13*F A 2 
,5'NEXT GOTO 3350 

3380 IF MID»< A*, 5 /-"MICRO-CHIP" 
OP MID*<A*,5>«"M" THEN Y=»l 

3390IF MID*<A*,5)-"LADDER" THEN 

R-6 

340OGOTO 329G 

9Q00DATAKEY,11,OARS, 12, WOOD, 13, 
CODE BOOK, 14, BOAT, 15, CRYSTAL, 16, 



KNIFE, 29, CAN OF OIL, 10. MICRO-CHI 
P, 40, HAIR PIN, 36, MOP, 20, TORCH, 1 

91O0DATA.1GO THROUGH MIRROR,. It 
NTER M I RROR,.l THROUGH MIRROR,. 5K 
I LL , 46N0RTH , 48S0UTH , 50EAST , 32WES 
T , 54UP , 56D0WN , 58ENTER , 60LEAVE , 63 
OPEN SESAME, '380PEN.68MAKE LADDER 
,?40IL BUTTON, 79PICK L0CK,84PUSH 

BUTTON , 1 TAKE , 1 GDRUP , 26USE , 36L0 
UK,37LIST 

9i.0lDATA62t!UlT,46N,48S,5uE,52W, 
56D 

92Q0DATA23CODE BOOK, 16B0flT/28Lfl 
ODER, 06L ADDER, 07M0P, 15B0AT, 27CRY 
STAL, 18KEY,21C0DE B00K,27MICR0-C 
HIP 




28 



ACORN PROGRAMS February/March 1984 



MOVE ROUND the screen 
using keys Z, X, / and : to 
collect the 'things' which ap- 
pear. Do not hit your trail or the edge of 
the screen because they will kill you. 



When you reach one 'thing' another 
will appear. 

Catcher was written by Alex Segre 
of London NW5. His highest score is 
13 'things'. 




i ■ 



10 H1GH-0 








429 


CCOL0,6 




20 MODE 2 








430 


A-RND<1279> 




30 PRUCimt 








440 


B-RND<1023> 




40 PROC border* 








450 


IF fKlOO OP RM200 OR EKlOG OR B>900 THEN GOTO 430 




50 PROCblobs 








460 


MOVE A, 6 




60 MOVE X.Y 








470 


IF SCOREO THEN VDU 240 




70 n«-iNKfcY*ce> 








480 


IF SC0RE>2 FIND SCGRE<6 THEN VDU 241 




80 IF R»«"" THEN PROCccmtinue 








490 


IF SCORE >5 AND SCGRE<9 THEN VDU 242 




90 IF R«*"Z" THEN U-I 








500 


IF SCORE >8 THEN VDU 243 




100 IF B««"X" THEN 0»2 








510 


GCOL0,3 




110 IF fl*-"/"' THEN 0-3 








520 


VDU 4 




120 IF fit-"'" THEN 0-4 . 








530 


ENDPROC 




130 DRRU X,Y 








540 


DEF PROCf l Tilth 




140 iF U-l AND PUlNT<X-8,Y>-3 


THEN 


PROCf lmah 


550 


SOUND 0.-15,50,5 




150 IF 0-2 AND POINTS X+e,Y)-3 ' 


THEN 


PROCf iYti*h 


560 


FOR T-l TO 2500 




160 IF 0-3 FIND PGINK X, Y-lW >-3 


THE* 


1 PROCf 


lTiish 


b 70 


NEXT T 




170 IF 0-4 AND PGINTCX,Y+10>-3 


THt» 


1 PROCf 


iru*h 


560 


COLOUR 5 




160 IF X<0 OR XM279 OR Y<0 OR 


Y>1023 THEN PRUCfimth 


590 


CLS 




190 IF POINT<X*10,Y>-6 OR P01NKX-1U, YXS 


THEN PROCbtobs 


600 


PRINT TAB<2,12)j"YGU OUT "iSCURE;" THING"; 




200 GOTO 60 








610 


IF SL0REO1 THEN PRINT"S" 




210 DEF PROLcont i nue 








620 


IF SCORE>HIGH THEN HIGH-SCORE 




220 IF 0-1 THEN X-X-10 








63Q 


PRINT TAB<2, I5)j "HIGH SCORE "jHIGH 




230 IF Q-2 THEN X-X+10 








640 


*FX 15,0 




240 IF 0-3 THEN Y-Y-10 








650 


G-GET 




250 IF 0-4 THEN Y-Y+10 








660 


CLS 




260 ENDPROC 








670 


GOTO 30 




270 DEF PRGCborders 








680 


DEF PROC in it 




280 GCGL0, 1 








690 


A-0 




290 MOVE 0,0 








730 


B-0 




300 DRAW O. 1023 








710 


SCORE— 1 




310 DRAW 1279/1023 








720 


*FX 11,8 




320 DRAW 1279,0 








730 


VDU 23i82O2;0>0i0j 




330 DRAW 0,0 








740 


0-1 




340 ENDPROC 








750 


X-600 




350 DEF PROCblobs 








760 


Y-550 




360 IF SCGREO-1 THEN SOUND I.- 


■lb. is 




770 


VDU 23,239.255,255,255,255,255,255,255,255 




370 SCORE-SCORE+l 








780 


VDU 23,240.24,60,126,255,255,126.60.24 




3B0 VDU 5 








790 


VDU 23,241,65,127,93,127,99,62,20,0 




390 GCOL0.0 








000 


VDU 23. 242, 99- 99, 28, 26, 72. 92, 92, 124 




400 MOVE A.B 








810 


VDU 23,243,74,122,122,50,250,254,124,0 




410 VDU 239 








820 


ENDPROC 









ACORN PROGRAMS February/March 1984 



29 



FORGET 

Cassettes 




Full 

Warranty on 
all Disk Drives 



REMEMBER 



Disk Drives 





There's only one IMPORTANT name in 
Specially Designed Computer Supplies 



Vi/jlerx 



TEACS and Cannon Slimline Drives 




Single Drives 




• 40 Track 100K 


£166 


• 40 Track 200K 


£230 


• 40/80 Track Switchable 200K 


£207 


• 40/80 Track Switchable 400K 


£269 


Dual Drives 




• 40 Track 200K 


£365 


• 40/80 Track Switchable 400K 


£425 


• 40/80 Track Switchable 800K 


£550 


ALL PRICES INCLUDE 15% VAT-LEADS & CASE 


Free Disk Formatter & Manual 




Please add £8 for Special Delivery & 




Packing 






Complete order form and send TOGETHER with ORDER FORM 

cheque or postal order made out to _. 

^ r Please supply 

VIGLEN COMPUTER SUPPLIES Type and make of drive 

Unit 7 TRUMPERS WAY Ouantitv 

HANWELL W7 2QA , y """ """" 

I enclose Cheque/PO for 

or phone in order with Barclaycard or Access number My A ccess/Barclaycard No 

01-843 9903 Name 

Address 

Educational establishment orders welcomed AU3 



30 



ACORN PROGRAMS February/March 1984 




SCISSORS 

PAPER 



STONE 











CHALLENGE your computer to 
a game of Scissors, Paper, 
Stone. Each of you chooses one 
of these objects. Your score is worked 
on the basis that stone blunts scissors, 
scissors cut paper and paper wraps 
stone. You gain a point for every win 
and lose a point for every loss. A score 
of fwe is an overall win for you and a 
score of minus five is an overall win for 
the computer. 



10 LET s-a 


330 


IF Y-3 THEN PRINT "MY CHOICE IS STONE" 




20 PRINTTAB< 10, 3 >; "SCISSORS PAPER SToNE" 


340 


IF Y-l AND 


G»-"SCISSORS" THEN GOTO 430 




30 FOR R-l TO50&0 


330 


IF Y-l AND 


C«-"STQNE" THEN GOTO 530 




40 NEXT R 


360 


IF Y-l AND 


GB-"PAPER" THEN GOTO 460 




50 CLS 


370 


IF Y-2 AND 


C«-"PAPER" THEN GOTO 430 




60 PRINT "YOU AND THE COMPUTER CHOUSE EITHER" 


380 


IF Y-2 AND 


G«-"SCISSORS" THEN GOTO 530 




70 PR I NT "SCISSORS, PAPER UR STONE" 


390 


IF Y-2 AND 


G«-"STONE" THEN GOTO 460 




80PRINT 


400 


IF Y-3 AND 


G«-"STONE" THEN GOTO 460 




90 PRINT 


410 


IF Y-3 AND 


C»-" PAPER" THEN GOTO 530 




100 PRINT "SCISSORS CUT PAPER" 


420 


IF Y-3 AND 


G«-"SCIS30RS" THEN GOTO 460 




110 PRINT "PAPER WRAPS STONE" 


430 


PRINT " 


A DRAW" 




120PRINT "STONE BLUNTS SCISSORS" 


440 


FOR R-l TO 


3000. NEXT R 




130 PRINT 


450 


GOTO 250 






140 PRINT 


460 


PRINT" 


YOU LOSE" 




150 PRINT "IDENTICAL CHOICES RESULT IN A DRAW" 


470 


LET S-S-l 






160 PRINT 


480 


PRINT "THE 


SCORE IS ";S 




170 PRINT 


490 


FOR R-l TO 


5000' NEXT R 




180PR1NT "ASCQRE OF 3 IS A WIN FOR YOU" 


500 


IF S— 5 THEN GOTO 620 




190 PRINT " A SCORE OF-S IS A WIN FOR THE COMPUTER" 


510 


IF S-5 THEN GOTO 600 




200 PRINT 


520 


GOTO 250 






210 PRINT 


530 


PRINT " 


YOU WIN" 




2£0 PRINT" IF YOU CHOOSE ANY OTHER OBJECTS THE 


540 


LET S-S+l 






RESULT WILL BE A DRAW" 


550 


PRINT " THE SCORE IS ";S 




230 PRINT "PRESS Y TO CONTINUE" 


560 


FOR R-l TO 


5000' NEXT R 




240 INPUT DB 


570 


IF S-5 THEN GOTO 600 




250 CLS 


580 


IF S— 5 THEN GOTO 620 




260 PRINTTAB< 10, 0>j "INPUT YOUR CHOICE" 


590 


GOTO 250 






270 INPUT Gl 


600 


CLS 






280 LET Y-RNDC3) 


610 


PRINT " 


YOU WIN THE MATCH" 




290 CLS 


615 


STOP 






300 PRINT "YOUR CHOICE IS "jG» 


628 


CLS 






310 IF Y-l THEN PRINT"MY CHOICE IS SCISSORS" 


630 


PRINT "THE 


COMPUTER WINS THE MATCH" 




320 IF Y-2 THEN PRINT "MY CHOICE IS PAPER" 


640 


STOP 










ACORN PROGRAMS February/March 1984 



31 



THIS PROGRAM, written by 
Ken Allen and Mike Smith, will 
act as a Bingo caller, picking 
numbers between one and 90 at random 
and displaying them on the screen. If all 
numbers have been displayed and no- 
body has claimed a win, the computer 
will tell you and will then run through 
the numbers it chose, in order, so that a 
winner can be found. 




1 0MODE7 

20D I MCHK 90 > , F*< 90 > ■ REM Check 
air i ri9* 

30CLS ' VDU23 > 8202 ; i ; ; 

40H«-"*** BINGO ***"<ZS=" 
0" - NC*-"No. CALLED > " • SB 1*-" PRESS 

SPACE BRR"<SB2*-"F0R NUMBER" 'CN* 
-"CALL No. "'W»»" PRESS W FOR WIN 
CALL" 

30GOSUB640 ■ REM Print heading 

60PR I NTTAB< 5 , 4 > I CHR* 131;" DO Y 
OU WISH INSTRUCTIONS? CY/N>" 

70G-GET 

80 IF G-89 GOSUB660>GOTO110'RE 
M Di»Pla« i instruct i ens if reluir 
ed. 

90 IF G-78 THEN 110 
100GOTO70 

110CLS'K-0 'REM Set call count 
er 

120FGRI-1TO90 - C*< I >"0" ■ NEXT ■ R 

EM Clear check *trin9. 

1 30G0SUB640 ' GOSUB760 
140PRINTTABC 0, >CHR*l3l ; CN* 
1 50PR I NTTAB< 3 , 3 >CHR* 131; NC* ; Tfl 

B< 23 , 3 )CHR* 1 33 1 SB 1 * ; T AB< 23 , 4 >CHR 

»133;SB2« 
160G-GET 

170IFG-32 THEN200 
180IFG-72 OR G-87 THEN GQSUB65 

8 « GOTO340 

190GOTO160'REM If not risht m 

Put. 

200N-INT<RND< 1 >*90>+l 
210IFC*<NX>"0" THEN200 
220N*-9TR*< N > 

230IF LEN<N*X2 THEN N*-2*+N* 
248X*-RIGHT«K N«, 1 >■ Y**LEFT*< N* 

,1) 

250IFX*«"0" THEN X*«"10" 
260X»VAL< X$ '> ' Y-VflL< V* > 
270X-X*3+3 - Y«Y*2+6 
280 1 FN/ 1 0» I NT< N/ 1 ) THEN Y»Y-2 
290PR I NTTP.B< X , Y >CHR* 1 34 ; N» 
300PR I NTTflBC 1 4 , 3 > ; CHR* 1 34 ; N» 

3 1 0C§< N >-N* 

320K-K+1 ' F*< K >-N* • PRINTTfl6< 0. 2 
>CHR*130;K 

330 IF KO90 THEN 160 

340GOSUB820 = 

350PR I NTTfiB< 0,2); CHR* 1 3 1 ; K ; TAB 
< 1 2 , 2 > ; CHR* 1 33 ; " LAST No . CALLED ■ " 
;N* 

360GOSUB8 1 

370PRINTTflB< 3, 3 ); CHR* 130; "THE 
SEQUENCE OF No's CALLED WILL NOW 
" ' TRB< 3 , 4 > ; CHR* 1 30 ; " BE D I SPLAYED 
, PRESS <S> TO START" 

380G-GET' IFGOB3 THEN380 
390GO3UB820 ; REM WiPe above fra 



32 



ACORN PROGRAMS February/March 1984 



ro*. 

400PR I NTTflB< , ) ; CHR* 131; CN* ' R 
EM Neu mfffi£3.9ffs 

410PRINTTRBC 4, 2 ); CHR* 130 J "HIT 
< RETURN > " ; T ABC 24 , 2 ) ; CHR* 1 30 i " 1 F 
FALSE CALL" 

420F0R T-l TO K-l 

430PRINTTABC 0, 2 ); CHR*131 ; T • PRI 
NTTRBC15,3);CHR*141;CHR*131;F*CT 
)' TABC 15, 4 ) j CHR*141 1 CHR*131 ; F«< T 

440G-INKEYC100)'IF G-72 OR G=8 
3 THEN PRINTTABC19,3);CHR*140;CH 

R* 1 34 ; CHR* 1 36 " < No . HELD ! ) " • G0T04 

40 ELSE PR I NTTRB< 1 9 , 3 > ; CHR* 1 40 i C 

HR«134j"<H> TO HOLD" 

450IFG-13 THENF-1'T-K ELSE F-0 

460NEXT 

470IF F-l G0T0519 

480 GOSUB820 ' PR I NTTABC 0, 2 >J CHR 
•131;K;TABC3,2);CHR*130;"PRESS < 
W> IF WIN";TRBC21,2);CHR*130;"<R 

ETURN> IF FALSE" 

485PRINTTflB< 4,3); CHR*141 ; CHR*1 
31 ; "LAST No. " ; TRBC IS, 3 ); F»C K V TA 
B< 4, 4 >; CHR*141 ; CHR»131 ; "LAST No. 
'■;TflBC15,4);F*CK);TflBC 19, 3 ); CHR* 
140;CHR*130;"<R> TO REPEAT No'S" 

490G-GET-IFG-87 THEN 570 'REM N 
»u 9ime? 

500 IF G-82 GOTO390-REM RedisP. 
No'a. 

510IF G<>13 GGTO490 

515IF G-13 AND KO90 GOSUB820 - 
GOSUB640 - GOSUB790 - GOTO 150 ELSE C 
LS > GO3UB640 

520PR I NTT ABC 10,8); CHR* 1 4 1 ; CHR* 
134; CHR* 136; "NO NUMBERS LEFT"'TR 
BC10,9);CHR*141;CHR*134;CHR*136; 

"NO NUMBERS LEFT" ' TRBC 8, 12); CHR* 
141; CHR* 1 34 ; CHR* 136;" SOMEONE MUS 
T HAVE W0Nr"TRBC8,13);CHR*141;C 
HR* 134; CHR* 136; "SOMEONE MUST HAV 
E WON I" 

530PR I NTT ABC 2,16); CHR* 131;" PRE 
SS";TRBC8,15);CHR*130;"<R> TO RE 
VIEW THE NUMBERS" 'TRBC 8, 17); CHR* 
133; "<fl) TO FINISH WITH GAME" 

540G-GET-IF G-82 THEN CLS ' GOSU 
8640 > GOTO400 ' REM RedisP I a'- No's. 
550 IF G-65 THEN 590 : REM N»w 9 a 

m»? 

560GOTO540 

570GOSUB630 ■ REM Flaah hsadirva 

for win 

580FOR Y-6T022-F0R X«0TO39>PRI 
NTT ABC X , Y ) ; CHR*32 ; CHR* 1 34 • NEXT ' N 
EXT 

590PR 1 NTTABC 12,19); CHR* 141; CHR 



*13l;"NEW GAME? C Y/N)"' TRBC 12,20 
);CHR*141;CHR*131;"NEW GAME? CY/ 
N>" 

600G-GET 

610IFG-89 THENU0 = REM Back to 
atari. 

620IFGO78 THEN600 

630CLS - END 

640PR I NTTABC 11,0); CHR* 1 29 ; CHR* 
14l;H*'TRBCll,l);CHR*129;CHR*l41 
; H* ' RETURN 

650PR I NTTABC 10,0); CHR* 131; CHR* 
141 ;CHR*136;H*' TRBC 10, 1 );CHR*131 
; CHR* 141; CHR* 1 36 ; H* ■ RETURN 

660PR I NTTABC 2,4); CHR* 1 30 ; " TH I S 
PROGRAM GENERATES RANDOM No' a"' 
TflBC2,5);CHR*130;"WITHIN THE RAN 
GE 1 TO 90 INCLUSIVE" 

670PR I NTTABC 2,7); CHR* 1 30 ; " THE 
SPACE BAR IS USED TO TIME THE"'T 
ABC 2 , 8 ) ; CHR* 1 30 ; " APPEARANCE OF T 
HE NUMBERS" 

680PR I NTTABC 2,10); CHR* 1 30 ; " THE 
NUMBERS ARE DISPLAYED IN THEIR" 
' TRBC 2,11); CHR* 1 30 ; " CORRECT POS 1 
TION INSIDE A BOX" 

690 PR I NTTABC 2,12); CHR* 1 30 ; " TH 
EY ARE ALSO DISPLAYED, IN"' T ABC 2, 
13); CHR* 130; " SEQUENCE , ABOVE THE 
BOX" 

700PR I NTTABC 2,15); CHR* 130 i " IF 
A WINNING CALL IS MADE PRESS "'T A 
8C2,16);CHR*130;"<H> OR <W> TO R 
ED I SPLAY THE No' a" 

710PRINTTABC 2, 17 ); CHR*130; " IN 
THE ORDER THEY WERE CALLED "'TRBC 
2,19);CHR*130;"IF A FALSE WIN WA 
S CALLED PRESS" 

720PR I NTTABC 2,20); CHR* 130;" < RE 
TURN> KEY TO RETURN T0"'TABC2,21 
>) CHR* 130; "SELECTION OF FURTHER 
NUMBERS" 

730 PR I NTTABC 12,23 )CHR* 1 36 ; SB i 

• 740G-GET 
750RETURN 
760FORT-4TO38 ' PR I NTTABC T, 5 ); CH 

R*255 ' NEXT 

770FORT-6TO22 • PR I NTTABC 4 , T ) ; CH 

R*255 ; TRBC 38 , T ) ; CHR*255 ■ NEXT 

780FORT-4TO38 ■ PR I NTTABC T, 23 ); C 

HR*255 ' NEXT 

790FOR T-l TO 20 ' PR I NTTABC 0, T+ 

3);CHR*134;MID»CW*,T,1);CHR*134< 

NEXT 

800RETURN 

810FORT-4TO23 ■ PR I NTTABC 0, T ); CH 
R*32 ; CHR* 1 34 ■ NEXT < RETURN 

820FORT*2TO4 • FOR8-0TO39 - PR I NTT 
ABC S , T > ; CHR*32 ' NEXT ■ NEXT 

840RETURN 









ACORN PROGRAMS February/March 1984 



33 










FORTY-EIGHT squares are dis- 
played on an eight by eight board. 
The object is to remove as many 
pegs as possible from the holes, by 
jumping over them. Only diagonal 
moves are permitted. Full instructions 
are included in the program. 

Solitaire was written by D B Stiles 
of Bristol. 




34 



ACORN PROGRAMS February/March 1984 




1GPEM +++++ iJUUHRb 'jULilDlKt 

20REM 

•jORLM g. IjY D.U. AND S.M.K. S 
1 iU'- 

4URL.I1 
&WREM 

60RLM &OME LUMPUTLRy PR1N1 Vfl 
RiUBLES 

70REM WITH LEADING AND 1RAIL1 
NG 

00REM SPAU/i. THE UBC MODLL D 
OLG Nul 

y0REM SU THl'J PROGRAM HAS EXT 
RA 

IGOREM SPACED UN LflCH SIDE OF 

ilOREM VARiABLLS WHEN lHfcY NEE 
D IT. 

L20REM 

130REM THL STATEMENT TflftN«L) 
10 USED 

14GPEM Tu MOVE THE CURSOR UN T 
HE 

lbuPEM SCREEN. IT SIMILAR STAT 
LMLNT 

160REM IS NUT AVAILABLE 1HLN 
RRANCE 

170RLM FUR LINES Tu FOLLOW EAC 
H OTHER 

1SBREM UN THL SCREEN INSTEAD. 

190REM 

200REM SOME COMPUTERS REQUIRE 
A " > " " 

210REM AFTER AN "INPUT" STATEM 
ENT. 

220REM 

230REM +++++++++++++++++++++++ 
+++++ 

240REM DESCRIPTION AND OPERA "T I 
UN 

230REM 

£600.3 > PRINT 

2?0k*-"%V0&2&3£& M 

28GPRINT TAB<y>;K*;K* 
290PR1NT K*i" SQUARE SOLITAIRE 
" ; K* 
300PRINT TABt9>jK«jMl 

310PRIN1 ' PRINT 

32GPRINT "THERE RRE 48 PEGS IN 
FIN 3 BY 8 BOARD. " 
J3QPRINT 

340PRINT "THE OBJECT IS TO REM 
uVE PEGS BY JUMPINCi" 
3S0PRINT "OVER THEM." 
360PR1NT 
370PRINT "ONLY DIAGONAL MOVES 

ARE PERMITTED." 
380PRINT 

390PR1NT "'1' INDICATES fl PEG, 
'U' AN EMPTY HOLE." 
40GPR1NT 

41 SPRINT "ENTER 2 SETS OF CO-OR 
L>1 NATES IN ANY" 

420PRINT "ORDER; E.G. 2D3C 3 



B F5" 

430PRINT 

440PRXNT "IF THERE ARE NO MORE 
PUSSIBLE JUMPS" 

4S0PR1NT "THEN TYPE * AND PRLS 
S RETURN." 

460PR1NT PRINT 

470DIM A<.64>' GOSUB 1240 

480INPUT "PRESS RETURN KEY 1U 
START" K* 

490REM 

SO0REM ++++++++++•+•++++++++++++ 

+ 4-++ 

S10REM DISPLAY THE BOARD 

520REM 

530CLS' PRINT 

b4GPR!NT TAB<5>, 

&50PRINT"! A B C D E F 

J b60PRINT TABC2.V \"t 

57GF0R N=l TO 26' PRINT "-•';■ 
NEXT N 

SbOM*l" FOR N»l TU 

590PRINT TflB<3>iNi M I"; 

600FOR M=M TO M+7 : PRINT SPC<2 
>>A<M>J 

610NEXT M PRINT 

620PRINT TABC9>l H l"i< NEXT N 

630PRINT TAB<33, 10); "MOVES" 

640PRINT TAB<35/11>;T 

6S0PRINT TAB<1,20>; 

66GREM SOME MACHINES MAY NEED 

67G INPUT "ENTER 2 SETS OF CU~0 
RD I NATES' " K* 

6601 F K*~"*" THEN 1110 

690REM 

7GGREM +++++++++++++++++++++++ 
++++++ 

710REM CHECK THAT MOVE IS LEGA 
L 

726REM 

7J0P-O FOR N-l TU LENCK«> 

740 1 F VAL< M i D*< K* , N , 1 > X 1 THEN 
780 

759 IF VAL<MID«<K«/N/1>»8 THEN 
?W 

760 IF P-0 THEN P-VAL'*MID*\ K*, N 
, 1 > > ■ GUTO 700 

77GQ*VAL'. M i D*< K* , H* I > > « N"99 

7O0NEXT N 

7^0IF NOG THEN 1U5G 

S00R-0' FOR N~l TO LEN-;K*> 

SiOIF ASC<MID*<K»^N>X)K6!S THE 

N 7b'G 

320IF ASC<MID«K»#Nj1>»72 THE 
N 700 

830 IF R-0 THEN R-fl£C<MID*<K*/N 

, i > >-64 ■ GOTO 700 

640S«ASC< M 1 D* K*,H,l> >-64 N«9 

y 

SSONEXT N 

060 IF N<90 THEN 10^0 

878 IF ABSCP-Q?<>2 THEN 1050 



080 IF RBS<R-SX>2 THEN 1050 
890C=< P-i )#8+R ■ D»< 0-1 >#0+S '■ E 

■< L +D >/2 

900 IF A<E>«0 THEN lOb0 

9 10 IF frOQ AND A^.D>«0 THEN 1 

050 

320IF FKOl AND FKD>-1 THEN 1 

050 

93QREM 

940REM +++++++++++++++++++++++ 

++++++ 

9b0REM * UPDATE BOARD 

960REM 

9701F flfOl THEN A'. C >»0 • A< D > 

»1 ' GOTO^O 

980A<C>*1 : A<D>-0 

990 A<E>-0' T«T+1 

1QO0GOTO ^.30 

101GREM 

1020REM ++++++t+++++t++++++++++ 
++++++ 

10J0REM ERROR ROUTINE 

104GREM 

1850PRINT "YOU CAN'T DO THATj T 
RY AGAIN" 

1060GOTO65G 

1070REM 

10G0REM +++++++++++++++++++++++ 
++++++ 

1090REM TELL END OF GAME RESULT 

S 
11G0REM 

1110S-0- FUR N-l TO 64' S-S+A-; N 
>' NEXT N 
1120PRINT "YOU TOOK ";T;" MOVES 
AND HAVE "iS>" PEGS LEFT" 
1130PR1NT TAB<3,23)j 
1140INPUT "WOULD YOU LIKE ANOTH 






ER GAME 



IV 



K« 



1150IF LEFTt<.K*. 1>«"Y" THEN GUS 
UB 1246' GUTO ^330 

1160IF LEFT*'.K*. 1K>"N" THEN 11 
30 

U7GCLS 

1180PRINT TAB<7* 10 >t "THANK YOU 
FOR PLAYING" 

l l 90END 

1 200REM 

1 \i 1 ©REM ++++++4-++++++++++++++++ 
++++++ 

1220REM SUB-ROUTINE TO INITIAL I 
^1E BOARD 

1230REM 

1240FOR N-l TO 64' n<N)«l- NEXT 

N 

1250FOR N-19 TO 4fc STEP H 

1260F0R M=U TO 3 

1270A<N+M>"0' NEXT M- NEXT N 

12O0T-0' RETURN 

l 290REM 

1390REM THAT'S IT FOLKS! I 

lSlORLN +++++++++++++++++++++++ 

+ + + H- +++ 







ACORN PROGRAMS February/March 1984 



35 




THE OBJECT of Worms is to 
join all the dots on the screen. 
The catch is that only two lines 
may touch each dot. You may move 
only one dot horizontally or vertically 
once you have defined your starting 
point and each line must be from one 
end of your 'worm'. 

Written by D Stiles of Bristol. 




10REM ££££££ BBC WORMS ££££ 


£fc 


20REM 


30REM C. BY L'.B.'jTALL'J 


40REM b-FE.B-83 


5QREM 


60REM FORMATTED TOP BBC MODEL 


B GRAPHICS 


70REM 




■JQPRIHT TflB< 12, 1 >D$;t'* 


100PRINT THEK5X)*" BBC WORMS 


" D» 


110PRINT TflB< 12>Lf*jD* 


120PRINT "The object is to joi 


n all the dots, taut" 


13QPRIHT " only two lines MAM 


touch each dot. " 


140PRINT "You mas only move on 


e dot horizontally" 


150PRINT " or vertically after 


fixinQ a startmQ" 


160PRINT " Point, and every n* 


w line must start" 


170PRINT " from one end of the 


worm. " 


180PRINT '"To draw a line Proc 


eed as follows- " 


19BPRINT '"1 ! Move the cursor 


on the Arid <usin9" 


200PRINT " the cursor arrows > 


to where the line" 


21QPRINT " is to start and Pre 


ss the 'copy' key" 


220PRINT " to fix it." 


230PRINT '"2 1 Move the cursor 


to the desired end" 


24MPRINT " Point and Press 'co 


py' to draw a line." 


2S0PRINT '"3 1 RePeat moves 1 ft 


nd 2 until no more" 


269PRJNT " moves are Possible; 


Press^-to finish." 


270PRINT '"Press any key to st 


art the 9ame"; 


2B0K-GET 


290REM 


■ if ifipCTM " " ■' " " " " " " " " " " " " " " " " " " " " " 


it ii ir ii ii ii 


310REM set uP variables etc. 


320REM 


330VDU 23,242,192,192,0,0,0,0, 


0,0 


340DIM fK9,$>- REM state of bo 


srri 


35Qxincr=l0O • y incr-UQ 


360xbase~i40 ■ ybase*40 


370ex^2O 


380REM 


■!>0(f"4['' l (. (»1 " " " " " " '' " " " " " " " " " '' " " " " " " " 


■l il M M II ll 


400REM eet up new 9nd 


410REM 


420MODE 3 


430moves"0 ■ *fc*rfc"0 


440PROCGR1D 


450X-Q' Y-3 


460PR0L MflKEX< X , Y , 4 , 3 > 


470*FX4,1 



36 



ACORN PROGRAMS February/March 1984 



480REM 

a, -jfjOf^M " " " M " " " " " " " " " " " M " " M rj i: " " " 
II ii II it II II 

500REM Play Sane* arrows and ' 

copy' 

518REM 

520REPERT 

530K=OET 

540 IF K«13S THEN PROCPUT 

550 IF K-136 THEN PROCLEFT 

560 IF K«l37 THEN PROCRIGHT 

570 IF K«i38 THEN PROCL'OUN 

580 IF K-139 THEN PROCUP 

590UNTIL K-flS'U "4^' ) 

600REM 

filPiRE^M 11 " " n " " *' " " " " ,r " " ri " " " M M " " M M 
ii ii ii u n ii ii 

620REM terminate Same 

630REM 

649PRINT TflB<0/3)3 10*10-move»" 
dots left" 

650PRINT " Press sPace bar 
i 

660REPERT UNTIL UET«»" " 

670MODE ?< 

660PRINT TR0<2j 10 >; 

690PRINT "Would you c^rc for a 
nother 9ame? " ; 

706k*=GET*- IF K*»"Y" OR K**"w 
" THEN 420 

7101 F K«K>"N" AND K*<>"n" THEN 
680 

720PRINT TfltK6/lS>"THflNK YOU F 
OR PLRYING" 

730T«TIME< REPEAT UNTIL T1ME-T 
>20S 

740MUDE 7' *FX4,0 

750END 

760REM >>>> THE END 
< < < < 

770REM 

■ ■ ■ _. ■ i J" r . : r I M 'I II II II tt l* II II I' II II II II II ♦■ II II ft l« M Cl *l II II 
ii II II if If if 

79GREM 'copy' key fives mark i 



n 



800REM Place and adds u.P sco 
re 

8 I 0REM 

320DEFPRUCPUT 

330IF start-Q THEN PR0CT1X' EN 
DPROt 

640 IF starts THEN PR0CF1XNXT' 
ENDPRUC 

850 IF starts THEN PRULL1NE- E 
NDPROC 

960ENDPROC 

876REM 

AAABVM" H M M " M " M " M H " " " *' " M " M M n *' ll " 
ii ii it ii ii ii 

890REM fix startin-3 Point of 1 
me 

90GREM 

910DEFPRGCF1X 

920startx=X ■ starty "»Y ; start -2 

930PROCMflKEX< X* Y, 3,2) 

94GENDPRGC 

950REM 

MM-'tPF- t' 1 " " " " " " " f< M M M " " H *' M " " " *' " l( U l! 

rt if ii n ii if 

970REM 

98GDEFPR0LFIXNXT 

990 IF R<XiY>»l THEN PRUCF1X EL 
SE PROCERROR 
1 000ENOPROC 
101QREM 

t PlPfiRF f*l " " " " " " " " " " " " " " " " " " " " " " " " 
■i t> <i ii ii ii 

1030REP1 draw the line 

.'.Q40REM 

1050DEFPROCLINE 

lftt€0IF RBS< X-startx HflB*3< Y-star 
t»X>l OR R<X,Y:< THEN PROCERROR : 

ENDPRGC 

1078PROCMRKEX< starty , starty , i,Z 
> 

1080LCOL 0>2 

1O90MOVE xbase+startytxincr, wba 
se+starty*y incr 



1 100DRAW xb**e+X*xiTftcr > vbase+Y* 
y i ncr- 

1 1 lQfl< startx/ starty >-R<: startv. s 

tarty >+l 

1 120f« X, Y >*■! : start-l • moves^mo 
we*+l 

U30VDU4' CLS- PRINT 'moves'' m 
ove" ; 

1140IF Moves-1 THEN PRINT EL*>E 
PRINT "s" 

11S8ENDPRUC 

1166REM 

« i ~** L~i[T ir - M " " " " " M u " " " " " " " " " " " " *' '* " " " 
II it II II II II 

1180REM 

H90DEFPROCERROR 

1280PRINT TflB<0/4>"vou can't do 

that"; 

1210ENC-PROC 

1 220REM 

1230REM 

1 -'i-ll 1p[ : [" " " n " " " " " H f< " " " M n " " " " " " " M " 
il H fl it it it 

1250REM left arrow move:- cursor- 
left 
1 260REM 

1270DEFPRUf_LEFT 
1280X1»X- Yl-Y 
1290 IF X>0 THEN X=X-l 
1300PROCCURSUR 
1310ENDPROC 
1320REM 

1 ' i^\Pf f'l " " " " " " " " " " " " " " " " " " " " " " " " 
ii ii il ii il ii 

1340REM ri9ht arrow rooves curso 
r riOht 
1350REM 

X360DEFPROCR1GHT 
1370X1 -X' Yl-Y 
1380 IF X<9 THEN X-X+i 
1390PROL:CURSrjR 

1400ENDPROC 

1410REM 

3 4^QPEM " " " " " " " " " " " " " " " " " " " " " " " " 
it H ii ii H H 

1430REM down arrow moves cursor 

down 

1440REM 

14S0DEFPROCDOWN 

1460X1-X Yl*Y 

1470 IF Y>0 THEN Y-Y-l 

1480PROCCURSOR 

1 :90ENDPROC 

1500REM 



1510REM 
H ii n ii ii •■ 



II |l || |i II il M (I II II II II I' n II II II II I* Il II II " l> 



152GREM UP arrow movcs cursor u 
P 
1S30REM 
1540OEFPROCUP 
1550X1-X^ Y1*Y 
1560 IF Y<9 THEN Y-Y+l 
1570PR0CCURS0R 
1580ENL'PRUC 
1590REM 

4 _";'.; i ;^>[. i' " II I 1 'I ■' ■■ ■! II II ■■ II ■! II II " ■> II M 'I II II II II II 
■I II II II II II 

1610REN remove and replace curs 
or 
162QREM 

1630DEFPROLX:IJRSOR 
1 640PROCMBKEX< Xl > Yl , 4, 3 ."' 
1 650PROCMPlKEXt X , Y * 4, 3 3 
1660ENCPRUL: 
1670REM 

t '-. '-Vi-"iph" M " " Jr n " " " " " " " " lf " fl tf " M " " M " M M 
ii if it it ii it 

1690DEFPROCMflKEX< X* Y/MsC > 

1700GCOL M/C 

17l0X-xbase+X*xmcr : Y=ybase+Y* 
y l ncr 

1720MOVE X+ex,Y+ex- DRAW X-ex,Y 
-ex 

1730MOVE X+ex/Y-ex^ DRAW X-ex.Y 
+ex 

1740ENDPROC 

1 750REM 

i 7' - fiC't hi " 'i ■! 'i 'i ii ii ii ii i' 'i " 'i ii '■ ii ii ii ii ii ii ii ii ii 
ii ii ii ii ii ii 

1770REM create 9rid and mit. a 
rray 

1780REM 

1790DEFPROCCjRIC> 

180QVDU 23;e2O2;G;O;0 

1810VDU 24^xbase;ybase;xbase+l0 
*x i ncr ; y base* 1 0*y i ncr ; 

1820VDU 28,0,5, 19>1 • CLS 

1830GCOL 0,! ■• CLG' VMJ 5 

1840FOR X-0 TO 9- FOR Y-0 TO 9 

1850MOVE xbase+X*xincr, ybase+Y* 
y i ncr 

1860VDU242 

1870R<X,Y>=0- NEXT Y« NEXT X 

1880ENDPROC 

1 890REM 

1908REH" 

H M " 'I !■ ft 



It It It II If II II II II l| 'I Jl l| I M || l| 11 || 1| ll 



1910REM %kl& THE flB^OLUTE END 'i 



y.y.v. 


























ACORN PROGRAMS February/March 1984 



37 




SOLVE your mathematical prob- 
lems or test your computer with 
this program which will solve Si- 
multaneous Equations. Enter the 
two equations and the computer will 
find the value of the two variables. 



1 CLS 

2 PRINT "SIMULTANEOUS EQUATIONS SOLVER" 

3 PRINT " fiX+BY-C" 

4 PRINT '* DX+EY-F" 

5 PRINT "ENTER Pi, Bj C" 

6 INPUT A 

7 INPUT B 

8 INPUT C 

9 PRINT "ENTER D, E, F" 

10 INPUT D 

11 INPUT E 

12 INPUT F 

13 LET DET»fl*E-B*D 

14 LET N-C*E-B*F 

15 LET Fi*»"X" 

16 COSUB 25 

1? LET N-fl*F-C*D 
ISLET fli-"Y" 

19 GOSUB 25 

20 PRINT "AGAIN? Y OR N" 

21 INPUT R« 

22 IF A«-"Y" THEN RUN 

23 STOP 

23 LET G-N/DET 

26 LET N-N-DET*G 

27 PRINT fl«j"*";G 
29 FOR P«l TO 3 

29 LET C-10*N/DET 

30 LET N«10*N-C*DET 

31 PRINT G 

32 NEXT P 

33 PRINT 

34 RETURN 



CRAZY CtiflSf 






+■ 



CHASE a bus driver round the 
screen. Move with keys 5, 6, 7 
and 8 but beware, because your 
controls are crazy. If you or the face 
move off the side of the screen you 
reappear in unexpected places. You 
have 100 moves in which to catch him. 







^ 



10 


MODE b 


190 IF D<0 OR D>30 THEN LET f- 


20 


VDU 23;82O2;0;0;O 


15 


30 


fl-9'B"fl't"15'D-C 


200 IF fl=C RHD B-D THEN CL-i ' PR 


40 


FUR T-l TO 100 


INT> "YOU DID IT" 'END 


50 


GOSUB 270 


210 IF fl<0 OR fl>20 THEN LET fl» 


60 


PRINT TflB<C#D>JCHR*C240? 


4 


70 


PRINT Tfl&CfijB>JCHR*<241'» 


220 IF B<0 OR B>JO THEN LET B» 


80 


LET L«RND< 10VLET H-RND-: 10 


? 


> 




230 NEXT T 


90 


IF G<5 THEN LET C-C+l 


240 CLS 


100 


IF OS THEN LET L*C-1 


250 PRINT TflBC0,10>;"YUU FfllLE 


110 

120 


IF H<5 THEN LET D-D+l 
IF H>5 THEN LET D*D-1 




260 END 


130 


LET R*«INKEY»<2000) 


270 VDU 23, 241 , 255 , 255 , 1 52 , 153 


140 


IF R*«"5" THEN LET BH3-1 


,255/255,255,255 


150 


IF R«~"8" THEN LET B«B+1 


200 VDU 23 » 240 , 1 ?& ,&b,l 70 , 85 , I 


160 


IF RS-"7" THEN LET fl-fl-1 


70,05,170,85 


170 


IF R*'"fc;" THEN LET fl»fl+l 


290 CLS 


180 


IF C<0 UR O20 THEN LET C~ 


300 RETURN 


10 







38 



ACORN PROGRAMS February/March 1984 



MIND READER, written by Dr 
J Evans of Plymouth, Devon 
challenges you to read the 
mind of the computer. The computer 
has developed a code in which each of 
the letters A to E is assigned one of the 
numbers between one and five. For 
those readers lacking telepathic powers 
the computer will perform simple sums 
to allow the player to work out the code. 
Full instructions are included in the 
program. 




10 M0DE7 




400 NEXT V4 


790 COLOUR 130 'CLS 'COLOUR 


20 XX-RNDt-TIME> 




410 UNTIL N^-2 


800 PRINT TABt 0,8) "YOU'VE CRAC- 


30 DIM RLPHfMK5>iNUM<3>/X<5) 


420 ENDPROC 


KED THE" ' "CODE" 


40 PRUC instruct 




430 - 


610 PRINT TRB<B,13)"Y0UR SCORE 


50 REPEAT 




440 DEF PRUCPlav 


IS "J SCORE 


60 2-0'SCORE-30 




450 C0L0UR2 


820 INPUT TAB< 0,20 V PLAY AGAIN 


70 M0DE5 




460 X2=0 


<Y/N> "jDEC» 


80 PROCdisPlaw 




470 REPERT 


830 IF DEC»<>"Y" AND DEC«<>"N" 


90 PROCrandom 




480 PRINT TRB<fc,2a)*iiPU10) 


PRINT TAB<0,20>3PC<20>' GOTO 82 


100 PROCPla* 




490 INPUT W» 





110 PROCscore 




500 IF W»«"TEST" PROCtest 


840 IF DEC*-"N" 2-1 


120 UNTIL Z>0 




510 IF X2>0 GOTO 610 


850 ENDPROC 


130 MODE? 




520 N1-ASC<LEFT*< W* , 1 > >-64 • N2- 


360: 


140 END 




ASC< RIGHTtC U», 1 > )-64 


870 DEF PROC instruct 


150 < 




530 IF N1-N2 OR Ml>5 OR N2>5 


880 PRINT'' "Thi» Pro9rj.m crea 


160 DEr PROCdisPla* 




R NK1 OR N2<1 GOTO 480 


tes a s imp I* code"' "for you to c 


170 COLUUR 129 'CLS 'COLOURS 




540 IF MID«<W«i2,l)-"+"L-i'L>N 


rack. The numbers 1 to 5"' "are a 


160 K1-0K2-0 




UM<N1 >+NUM(N2) ELSE IF MID«KU«,2, 


s*i9ned random Iv to the letters" 


190 PRINT TREK 1 0,5V* ADD" TBB< 


;0, 


1 )-"-»L-2 - C-NUM< Nl >-NUM< N2 > ELS 


'"A to E. Your task is to discov 


16 )"SUB"TAB< Q, 25 >" ADD< + > SUB< ■ 


-> 


E GOTO 480 


er the" '"code bv askm9 for piec 


TEST" 




550 IF C<0 C— C 


&s' of "'"information." 


200 PRINT TAB<7,10)"A BCD 


E" 


560 IF N1>N2 N3-N1 N1-N2>N2-N3 


690 PRINT" "You mav a*k the co 


210 PRINT TRB<5,i2>"R"TABt5. 


,14 


570 IF L-l THEN X-5+2*N2 ' Y-10 


mPuter to add"' "or ftubtract anv 


rB"TAB'.5, i6)"C"TAB<:5, 18>"D"TAB< 


+2*N1 ELSE X-5+2*Nl ■ Y-10+2*N2 


two letter*, e. S. type" ' "A+6 or E- 


5,20 >"E" 




580 PRINT TAB<X,Y>;C 


C. The re»ult ift disP lawed" ' " in 


220 FDR 11-7 TO 13 STEP 2-Ki-K 


398 IF L-l SC0RE-SC0RE-2 


a 9nd. Note that on ftubtraction 


1 + 1 




600 IF L-2 SCORE-SCORE-i 


*"'"wou $.r» Given onlv the ftize 


230 FOR 12-12 TO 20 STEP 2-K2- 


610 UNTIL SCORE<-0 OR X2>0 


of the"' "difference, *ou cannot 


K2+1 




620 IF SCORE<0 SCORE-0 


tell which " 


240 IF K1-K2 PRINT TAB<I1,I2)" 


630 ENDPROC 


900 PRINT" letter represent* th 


*" 




640 • 


e larger number. " 


250 NEXT -K2-0' NEXT 




650 DEF PROCtest 


910 PRINT ""Press SPACEBAR to 


260 ENDPROC 




660 Yl-0 


continue" 


270- 




670 FOR 1-1 TO 5 


920 *FX15.1 


2S0 DEF PROCrandom 




680 PRINT TAB<6,28>jSPC<10> 


930REPEAT UNTIL GET-32 


290 RESTORE 




690 PRINT TAB<6,28);ALPHA«<I>j 


940 CLS 


300 FOR 1-1 TO 5 




•' m "t 


950 PRINT ""Uhen *ou think *o 


310 READ ALPHAS I ) 




700 INPUT XI 


U have cracked'" "the code t*Pe T 


320 X< I )-RND< 1 ) - NUM< I >-I 




710 IF XIONUPKI) Yl-Yl + 1 


EST and mou will be"' "tested. Yo 


330 NEXT I 




720 NEXT I 


ur ftcore is reduced by 1 "'"Poin 


340 DATA A,B,C,D,E, 




730 IF Y1>0 PRINT TAB< 0, 26 )"YO 


t for each subtraction requested 


350 NV.-6 




U FAILED. TRY AGAIN" - SCQRE-SCORE- 


, *""2 Points for each addition a 


360 REPEAT 




3 ELSE X2-1 


nd 3 "'"Points for each failed t 


370 NM-Nk-1 




740 TIME-0 -REPEAT UNTIL TIME> 


est." 


380 FUR I*-l TO N^-l 




300 


960 PRINT" "Press SPACEBAR to 


390 IF X<IfcXX<N;0 THEN XN-XCN 


750 PRINT TRB<0/26)jSPC<20) 


start" 


'/. > ' Hi HK )-X< I '/. ) « X< I '* )-XN ' NUMN-NU 


760 ENDPROC 


970 *FX15,1 


IK H% > ' NUM< Nk >NUM< I •/. ) ■ NUMC I '/. >- 


■NU 


7?Q • 


980 REPEAT UNTIL GET-32 


MN 




780 DEF PROCscore 


990 ENDPROC 
















ACORN PROGRAMS February/March 1984 



39 




FOR THE 
ACORN 





Join the Electron User Group 



Members receive 10 copies of the magazine 
ORBIT each year. ORBIT is devoted 
EXCLUSIVELY to the ELECTRON MICRO. It is 

packed with News, Reviews, Hints, Tips. 
Programming ideas. Major articles, plus Regular 
program features including games and useful 
utilities. 

ORBIT is produced by BEEBUG Publications 
Ltd., publishers of BEEBUG, the magazine of the 
National User Group for the BBC Micro. 
BEEBUG now has some 20,000 members and 
has achieved a high reputation both in this 
country and abroad. 

The formula which makes BEEBUG an 
invaluable companion for users of the BBC 
micro, will be applied to ORBIT. 

By subscribing to ORBIT you gain all the 
advantages of a single-micro magazine, with no 



space wasted on programs and articles for 
other computers. 




ORBIT MAGAZINE 

Ten copies a year mailed free of charge. 

DISCOUNT SCHEME 

Extensive discount scheme with major retailers. 

SOFTWARE LIBRARY 

A growing range of software titles at budget 
prices for members. 

SOFTWARE CLUB 

Substantial discounts on software from major 
software houses. 

LOCAL USER GROUPS 

Lists of local affiliated user groups. 



1. SPACE CITY. Defeat the invading Aliens with your laser, and save 
the city 

2. 3D NOUGHTS AND CROSSES. Pit your wits against the 
ELECTRON on a 4x4x4 board 

3. RACER. Guide your racing car to victory, avoiding other cars and 
obstacles on the track 

4. 3D MAZE. In this challenging game, you must escape from the 
maze - The screen displays a 3D view from inside the maze 

5. PATCHWORK. A multicoloured display of continuously changing 
patterns 

6. KEY SET ROUTINE. A program to set up the user function keys 

7. MEMORY DISPLAY. An efficiently written utility to display the con- 
tents of memory (ROM and RAM) 

8. CHARACTER DEFINER. Define individual graphics characters with 
this useful utility for use in your own programs. 




SPACE 
CITY 



RACER 



3D MAZE 




HOW TO JOIN 

To •utacrite tor on* yoor, ond att your FRH CASSETTE mod C».90 (poyobto to OftM ph* • Wrong oiompod 

ORBIT, PO BOX 50, 8T ALBANS, HERTS 

StarTW*hiri»ltuto~rH*Km(5ioiu~>U«or^ 

UKtanoyo»omtf:fWondlurop« 1 1 6.00. MUdto Eott £1».0O. AmoriCMondAMoa £21.00. otfwr 




40 



ACORN PROGRAMS February/March 1984 




MIM 



ILLUSION, by Dr J Evans of Plym- 
outh, Devon demonstrates a visual 
illusion. Fins on the ends of two 
straight lines distort the viewer's visual 
impression of their length. The length 
of the lower of the two lines can be 
altered until the two lines are judged to 
be equal. The fins are then removed to 
show the lengths of the lines accurately. 



ND 

ND 



10 REM MULLER-LYER ILLUSION 
30 ON ERROR IF ERR-17 M0DE7<E 
ELSE M0DE7' PRINT ERL ' REPORT -E 



40 MODE7'PROCmstruct 

50 K-60 , 

60 M0DE1 

70 GCOL 0,130' CCOL 0,0' CLG 

00 COLOUR 129 

30 L-RNL>C60:'+600 
100 XR-RNDC1) 
110 REPEAT 
120 L.Li.' 

130 VDU28,1Bj30,30,22'CLS 
140 REM CREATES TEXT WINDOW 
150 PRINT TAB<4,2>"B0TT0M LINE 
" " " S SHORTENS" ' M L LENGT 

HENS'*'" E EQUALS" 

160 Yl-800'Y2-600 
1 70 PROCc»ntre( 640 ) > PROC 1 1 *•< Y 

180 IF XR>.5 THEN PRGClfirrtXli 
Yl>'PR0Crfm<X2,Yl> ELSE PROCrfi 
n<Xl.Yl><PR0ClflYv:X2,Yl> 
190 REM DRAWS UPPER ARROW 
200 PROCc»ntr«< L > ' PR0Clln#<Y2 

210 IF XR>.5 THEN PROCrfin<Xl, 
Y2>'PR0Clfin<X2,Y2> ELSE PROClfi 
n<Xl,Y2>' PR0Crftn<X2,Y2> 

220 REM DRAWS LOWER ARROW 

230 *FX13,1 

240 A*-CET« 

250 IF A«*"L" THEN L-L+8< GOTO 



290 

260 
290 
270 
280 
ME >20 
290 
300 
310 

1> 
320 
330 
S"'"WI 
<Y/N>" 
340 
350 
360 
370 
360 
390 

400 

410 
420 
430 
440 
450 
460 
470 
490 
490 
500 
510 
520 
530 



IF A»-"S" THEN L-L-8' GOTO 

IF A«<>"E" GOTO 240 
CLG'TIME-0' REPEAT UNTIL TI 

UNTIL A«-"E" 

CLG ' CLS 

PROCc#ntr«< 640 ) ' PROC I !*•< Y 

PROCc»ntr«< L > • PROC I i n«< Y2 > 

PRINT'"THESE ARE YOUR LINE 

THOUT THE FINS'" "' AGAIN 

j 

#FX13,1 

D«-GET» 

IF D«-"Y" CLS' GOTO 90 

IF MK>"N M CLS 'GOTO 330 

M0DE7 

END 

I 

DEF PROCcentr*<Li:> 
X1-O280-L1 V2-1 
X2-X1+L1 
ENDPROC 

DEFPROClmeCY) 
MOVE Xl.Y 
DRAW X2,Y 
ENDPROC 

DEF PROClfin<X.Y> 
MOVEXiY 

DRAW X+K/Y+K 



540 MOVEX.Y 

550 DRAW X+K.Y-K 

560 ENDPROC 

578 ' 

580 DEF PROCrfiYV,X,Y> 

590 MOVE X/Y 

600 DRAW X-KyY+K 

610 MOVE X,Y 

£20 DRAW X-K,Y-K 

630 ENDPROC 

640 DEF PROL instruct 

650 PRINT '"'This Pro9ram deon 



strates a visual 



M * If 



1 1 1 us ion know 



n to Psychologists as"' "the Mull 
er- Lyer. The fins on the end of" 
' "two straight lines distort one 
's visual" '" impression of their 
len9hth." 

660 PRINT' "The ProQram draws t 
he tines initially"' "with fins o 
n and at randomly vary m9" ' " len9 
ths. You can shorten or lengthen 
"'"the lower line by repeated Pr 
*S*ln9 "'"of the S and L keys. W 
hen you think" 

670 PR I NT "they look e-lual Pres 
s E and the "'"computer will sho 
w you the true "'"of your lines. 

680 PRINT' "Press SPACEBAR to ft 
tart" 

690 REPEAT UNTIL GET«32 
7U0 ENDPROC 



ACORN PROGRAMS February/March 1984 



41 



FAIRHURST INSTRUMENTS LTD 

OF WILMSLOW 



FACT 90% OF OUR CUSTOMERS ARE 
RECOMMENDED TO US . . . 



PHONE OUR SALES TEAM NOW WITH ANY 
QUERIES ON ALL ASPECTS OF THE BBC MICRO 

WE ARE TRUE SPECIALISTS IN HARDWARE 

AND SOFTWARE. 

MAIL ORDER AVAILABLE 
PHONE (0625-525694) 



IS 



First Byte Computer 

10 Main Centre, Derby 
Tel: (0332) 365280 



URSTBvitLOWPUlM'S 



FIRST BYTE SOFTWARE FOR 
THE BBC MICRO 

Space Adventure 1 Adventure £7.95 

Star Trader Galactic Trading Game £7.95 

Valley Of The Pharoahs Adventure £7.95 

Starforce Lander Arcade Game £6.95 

All Prices include VAT, add 50p for P&P 

Dealer enquiries welcome 



micro - Rid 

SUPERIOR SOFTWARE 
FOR THE BBC MICRO 

SPELL-CHECK £17.95 



£9 
£9 




MEMO-CRLC 
CflSHBOOK 
LEDGER 
MRILING £9 
PAYROLL £19 
STRTPflCK £9 
FRENCH ABROAD £ 
GERMAN ABROAD £ 
UTILITY-fi £5 



7 
7 



95 
95 

95 
95 
95 

.95 
.95 
95 



Send for* 



FREE Broc 



u*> ■ %/«* 

hue -e 



25 Fore street. 

Praze-an-Beeble, 

Camborne, 

Cornwall. TR 14 OJX. England. 



Tel: (0209) 831274 



THE COMPUTER USERS CLUB 

69 HADLOW ROAD, 

WELLING, 

KENT. 

DA16 1AX. 

TEL: 01-311 2555 



At our Hadlow Road premises we stock a complete range of accessories for the BBC micro including 
monitors, printers, plotters, cassette recorders and a wide selection of disc drives and other peripherals 
from leads to dust covers at very competitive prices. This service is provided to compliment the facilities 
provided by the Computer Users Club and both members and the general public are always assured of a 
warm welcome and helpful assistance. Obviously some of our present and hopefully future members and 
clients live some distance from us so we have available a mail order service. Postal/telephone, assistance, 
ordering and sales is available worldwide. 

Our software available on both tape and disc comprises a wide selection from games to business 
programs. We currently have available Torch Z80 Disc Packs complete with a free comprehensive 
software package comprising Perfect Calc:- Spread sheet analysis. Perfect Writer and Perfect Spelter:- A 
word processing with a spelling checker facility. Perfect Filer:- A database package. To compliment this a 
utilities disc, a complete package in its own right is included. The Disc Pack transforms the BBC Computer 
into a competitive business machine providing a total storage capacity of 800k on dual drives and the 
facility to run CP/M business software through the built in compatible CP/N Operating System making it a 
very worthwhile package at £730 + VAT. This package can be seen connected to the BBC Computer and 
demonstrated with the other systems currently available an open invitation without obligation is extended 
to all and we look forward to seeing you at our Hadlow Road premises in the very near future. 



42 



ACORN PROGRAMS February/March 1984 



THIS SHORT utility program 
will convert numbers from one 
base into another. It deals with 
bases up to and including hexadecimal. 
Type-in your number, its original base 
and the base to which you wish to 
convert it. 




10REM THIS IS fl UTILITY PRCJGR 

rm to convert fl number in any br 
se to rny other brse including h 
ex 

20MODE 1 

30PR INT" INPUT THE NUMBER " 

4QPR INT "THEN IT'S BffSE " 

seiNPum* 

60INPUTBRSE 

70LETN-0 

00F0R2=<. LENA*-! >TO0STEP-1 



yOLETT=F-lSC''.MIO*';Fl$J_ENR*-Z J 1 > 



:>~4 r 



•Zl 



I m I FT >3THENLETT=T-7 
1 10LETN=N-K BRSE""2*T > 
120NEXTZ 

130PRINT"WHRT BASE DO YOU WANT 
IT " 
140PR I NT "CONVERTED TO " 
150INPUTBRSE2 
160LETN*-"" 



170LETR^N-INT-:; N/BRSE2 >*BRSE2 

lS0IFR>yTHENLETR=R+7 

190 LETN-INT<N/BRSE2> 

200LETN*=N*+CHR*':. R+48 ) 

210IFN< >OTHENGOTO170 

220CLS 

238 PR 1 NTflS ; " IN BRSE " :• BRSE 

240PRINT"IS EQURL TO " 

2!b0FOR2=LENN¥TO 1 STEP- 1 

260PR I NTM I D*< N* , 2 .. 1 :- ; 

270NEXT2 

280PRINT" IN BRSE " ; BRSE2 

290PRINT 

3O0PRIN7" DO YOU WANT RNOTHER 
CO ?" 

310PRINT" < Y OR N >" 

320LETU$=GET* 

330 1 FQ*= ■< y " T HENCLS ' RUN 

340 1 FQ$< > " N " THENPR 1 NT " ONLY Y 
R N " « G0T0290 

3S0END 




ACORN PROGRAMS February/March 1984 



43 






A GAME for two to nine players 
written by D Stiles of Bristol. 
Players of Boxes take turns to 
draw a line between two dots on the 



screen. The player who draws the 
fourth side of a box gains that box. The 
winner is the player with the most 
boxes when the screen has been filled. 



10REM ££££££ BBC BOXES ££££ 



t£ 



20REM 

3QREM C. BY D.B. STILLS 
40REM 7-FEB-83 
50REM 

60REM FORMATTED TOR BBC MODLL 
B LRflPHXCS 
70REM 

60MODE 6- t>*=-"LJLJLJLJ" 
90PRINT TFlB<l2,l >D$jD* 
1Q0PRINT TflB<.5>D$" BBC BOXES 
"D» 

U0PRINT TflB<li:'DS.iD* 
120PRINT "The object is to mm 
n all the dots to" 

130PRINT " make boxes. The PU 
yer who completes a" 

149PRINT " box wins A Point an 
d 9ets another 9o. " 

150PRINT "Rfter fixm9 a start 
in9 Point the next" 

160PRINT " move must be within 
one dot of it," 

170PRINT " either horizontally 
or vertical lu. " 
180PRINT '"To draw a line Proc 
eed as fol lows • " 

190PRINT '"I- Move the cursor 
on the 9r i d <. us 1 n9 " 

200PR1NT " the cursor arrows." 1 
to where the line" 

21QPRINT " is to start and Pre 
ss the 'copy' key" 

220PRINT " to fix it." 
230PRINT '"2- Move the cursor 
to the desired end" 

240PRINT " Point and Press 'co 
Py' to draw a line." 

2S0PRINT "'3' RePeat moves 1 a 
nd 2 until no more" 

260PRINT " moves are Possible; 
Press ^b to finish," 
278REM 

' ' liP [ M " " " " " " " " " " " " " " " " " " " " " " " " 
II II II II II II 

290REM set uP variables etc. 

300REM 

310VDU 23,24iJ,iy2, 192,0,0,0,0, 

0,0 

32QDIM ft<3,$^ REM state of bo 
ard 

33QDIM P<9>- REM Players score 
340xincr*8e' y incr«72 
3i0xbase=200 « y base "40 
360#x-20 
370REM 

" -'Ml'lPF M " " " " " " ° " " " Jl 4| " " U " ,l H '* " *' n lf H 

fl r i || || ft M I 

390REM set up new 9nd 
400REM 

410PRINT TAB<0,23>; 
420PRINT '"Enter the number of 
Players from 2 to 3" ; 
430num-C;ET-FISC'. "0" > 

440 IF num<2 OR num>9 THEN 410 
450MODE 5 

460moves a "0 ' start«Q : Plyr*0 ; s 
q r «-0' box-0 
470PRQCGRID 
4S0X-0- Y«9 
490PROCMflKEX< X , Y , 4 , 3 ) 
500*FM4,i 
510PROCOISPSCOR 
520REM 

c- ■ jiT-pt." M " » •' " II " " I' M II l» I' II II II II II II II II II II II II 

it it it ii it ir 

540REM Play 9ame : arrows and ' 
copy' 
550REM 
560REPEAT 
970K-GET 

560IF K-135 THEN PROCPUT 
590 IF K=136 THEN PRULLEFT 
600IF K-13? THEN PROCRIGHT 
610IF K-138 THEN PRUCOOWN 
62QIF K-139 THEN.PROCUP 
630UNTIL K*flSC<'#!'> OR box«Bl 
640REM 

~" SflPL M " " " " " " " " " " " " " " " " " " " " " " " " 
■I ii II ii |i ii ii 

660REM terminate same 



44 



ACORN PROGRAMS February/March 1984 



660PRINT TflB<0/7>"Pres* iPac* 



h«xr 



i 



690REPEAT UNTIL GET*-" " 

700MQDE ? : 

710PRINT TRB<2,10>; 

720PRINT "Would you care for 3. 
nother 9lMt? " ; 

. 730K*-GET»- IF K»*"Y" OR K*-"y 
" THEN 450 

740IF MKV'N" FIND K*0"n" THEN 
710 

750PRINT TAEKC, 15 >" THANK YOU F 
OR PLAYING" 

760T-TIME' REPEAT UNTIL TIME-T 
>2Q0 

770MODE 7- *FX4,0 

780END 

790REM >>>> THE END 
<<<< 

800REM 

lj j ftPPM " " n M M " n n " " u " M M " N H 11 m (i 11 11 11 u 
11 11 11 11 11 11 

820REM 'copy' key fixe* mark 1 
n 

830REM Place and adds up sec. 
re 

840REM 

850DEFPROCPUT 

860IF start THEN PROCLINE' END 
PROC 

870IF A<X,Y>>3 THEN PROCERROR •• 
ENDPROC 

880A<X,Y>-A<X,Y>+1 

890startx»X ! starts - Y ' *tart-l 

900PROCMAKEX< X , Y , 3 , 2 ) 

910ENDPROC 

920REM 

93C1PEM " " " " " " " " " " " " " " " " " " " " " " " " 
11 11 11 11 11 i< 

940REM draw the line 

950REM 

960DEFPROCL 1 NE 

970IF ABS< X-startx >+ABS< Y-star 
ty><>l OR A<X,Y>>3 THEN PROCERRO 
R' ENDPROC 

960IF POINT<<<xbase-t-startx*xin 
cr>+<xbase^X*xincr>> DIV 2,<<yba 
**+st*rtv*v incr >+< vbase+Y*y incr > 
> DIV 2> THEN PROCERROR' ENDPROC 

99&PR0CMRKEX': start* , starty ,3,2 

> 
1000GCOL 0,2 

I01OMOVE xbase+startx#xincr,yha 
se+starty*y mcr 

1 020DRAW xbaae+Xtx i ncr , y base+Y* 
y mrr 
1 O30fl< X , Y >-A< X / Y >+l 
104GPROCSCORE 

l050start-0 moves-moves+l 
10COIF slr^G THEN Pl^r-<Plyr+l > 
MOD ftUM ELSE s-'r-s'lr-l 
1 07GPR0CD I SPSCUR 
1 08OENDPRUC 

1Q90PEM 

• 1 c«r»pc~M " " " '* " " " " " " " " " " " " " " " " " *' " " 

11 11 11 ii it 

111GREM disPlav the score 

112QREM 

U36DEFPR0CDISP3C0R 

1140VDU4' COLOUR 4- COLOUR 129- 

CLS 

U50PRINT "Score in "; moves" no 
ve"; 

U60IF moves-1 THEN PRINT " ■ " E 
LSE PRINT "s* " 

1170FOR N-l TO num 

U80PRINT ;N" has ";P<N~1>" ; "; 

H98IF N M0D2 THEN PRINT TfiB< 10 
>j ELSE PRINT 

12G0NEXT N 

1210PRINT TflKl*7)"PliMr ";Pln 
r+X" is next"; 

1220ENDPR0C 

1230REM 

1 J il( IPC M " " " " " " " " " " " " " " " " " " " " " " " " 

M ii 11 11 11 11 

1250REM check to see if box was 

made 
1260REM 

1270DEFPROCSCORE 

1280XI»xbase+X*xincr < startxl-x 
base+st*rtx*xincr 



1 290Y I -y base+Y*y 1 ncr ■ starts 1 «* 
hase+starty*y incr 
l30QIFX-startx THEN PROCSLARCHX 

( 1) 
1310IFX-startx THEN PROCQEflRCHX 

<-l> 

132GIFY-starty THEN PROC'iEARCHY 

(1) 

1330IFY-starty THEN PROCSEARCHY 
<-l ) 

1340ENDPROC 

1350REM 

1 '^fifiRKM f * " " M M M " n M M M " " *' " " M " " " " M ** M 
11 11 n 11 ir it 

1370REM 

1360DEFPROCSEARCHX', s9n > 

1390IF PGINT<XI+<s9n*<xincr DIV 

2 > ) , Y I >< 1 THEN ENDPROC 

1400IF PGINT<XI-Ks9n*<xincr DIV 

2>r»,start*IXl THEN ENDPROC 

1410IF PGINT<XI+s9n*xincr,<<;YI + 
starts I > DIV 2 > X 1 THEN ENDPROC 

1420IF P0INT<XI+<s9n*xincr>DIV2 
,<YI+startyI>DIV2> THEN ENDPROC 

1430PROCFILL< xincr , ) 

1440MOVE XI+c<s9n-0.5>*<xincr D 
IV 2)),(<YI+startsI > DIV 2>+12 

1450VDU5;Plyr+49;4 

1 460ENDPR0C 

1479REM 

1 4 i-'i *lPf- T b< " M " H " " M M " " " u H " f< f< M ta M " " " u 
11 11 11 11 it a 

1 490REM 

1^0GDEFPROCSEflRCHY< S9n > 
1510IF P0INT<Xl,YI+<s9n^ym.rr 
DIV 2)>><1 THEN ENDPROC 

1520 IF P0INT<»t*rtxI/YI+'i*9n*<« 

incr DIV 2>>><1 THEN ENDPROC 

1530IF POINK<XI+startxI > DIV 2 
,YI+s9n**incrXl THEN ENDPROC 

1S40IF P0INTC<XI+startxI>DIV2,Y 
I+<s9n*sincrX>IV2> THEN ENDPROC 

1 590PR0CF I LL< , h 1 ncr > 

1566M0VE C<.XI+startxI »IV2>-24, 
YI+<<*on+0.3)*<wiif»cr DIV 2>> 

1 S70VDUS i p I y r+4d ; 4 

15Q0ENDPROC 

ib90REM 

1 £■ T'H^lPF M " " " " " M " " f< " " ° l! " " " M M " " " " n *' 
11 11 ii 11 11 11 

1610REM box was made, fill it 1 
n 

162GREM 

1 630DEFPROCF I LL< x 1 n , y 1 n > 

1640P< P lyr )<-P< P lyr >+l ' »<ir"»flr+ 
1 1 box*box+l 

1 6b0PROCMflKEX< X , Y , 4 , 3 > 

1660MOVE startxl,startyl 

1670MOVE XI, YI 

1680GCOL 0,129 

1690PLOT e7,XKs9n*xin,YI+s9nty 
in 

1 700MOVE startx I +s9ntx 1 n , starty 
I+s9n*y in 

1710PLOT 87,startxl, starty I 

1720GCOL 0, 128 

1 730PROCMAKEX< X , Y , 4 , 3 > 

1740ENDPROC 

1730REM 

I ~t f flPP M M 'i n Ii 11 it M 11 11 Ii 11 11 11 11 it ti 11 11 11 11 vi 11 11 11 
it it 41 ii fi It 

1770REM 

1780DEFPROCERROP 

1790PR1NT TABaj,6>"you can't do 

that" j 

1 800ENDPROC 
1 8 1 0REM 
1820REM 

1 R'^fiPP M " " " " " " " " " " " " " " " " " " " " " " " " 
11 11 11 11 11 11 

1840REM left arrow moves cursor 

left 

1850REM 

1860DEFPRUCLEFT 

1870X1-X- Yl-Y 

1880 IF X>9 THEN X«X-1 

1898PR0C CURSOR 

1908ENDPROC 

1918REM 

1 S'-Tlpf- f'1 " " " " " " " " " " " " " " " " " " " " " " " " 
11 11 11 11 11 11 

1930REM rioht arrow moves curso 



r ri9ht 

194GREM 

1950DEFPROCRIGHT 

1960X1-X- Yl-Y 

1978 IF X<9 THEN X-X+l 

1980PROCCURSOR 

1990ENDPROC 

20OOREM 
■ 1 1 « i-.p' ■ r,i 11 •■ m 11 11 11 ii ii ii 11 11 ii ■• ii ii " 11 11 11 •• m •■ ii ■■ 

11 11 11 11 11 11 

2110REM up arrow moves cursor u 

P 
2120REM 
2130DEFPROCUP 
2140X1-X ; Yl-Y 
2150IF Y<9 THEN Y-Y+l 
2160PR0CCURS0R 
2170ENDPRUC 
218QREM 

■-, , Ot>PF"M " " " " " " " " " " " " " " " " " " " " " " " " 

II M II II II II 

2200REM remove and replace curs 

or 

2210REM 

2220DEFPROCCURSOR 

2230PROCMAKEX< XI , Yl , 4, 3 > 

2240PROCMAKEX< X , Y , 4 , 3 > 

2230ENDPROC 

2260REM 

??7Plf?PM H fl " <r " M M M l- $ * Jl " -l " " " " " " (l *' " '* " 
11 11 it 11 11 a 

2280REM 

2290DEFPROCMAKEX< X, Y, M, C > 

2300GCOL M,C 

2310X-xbase+X*xincr : Y-ybase+Y* 
y incr 

2320MOVE X+ex,Y+ex- DRAW X-ex,Y 
-•x 

2330MOVE X+ex,Y-#x- DRAW X-ex,Y 
+ex 

2340ENDPROC 

2350REM 

2360REM " " " M " " " M " " " " M " ,f " M u u M '* " " " 
11 11 it a 11 11 

2379REM create 9rid and init. a 
rray 

2388REM 

2390DEFPROCGRID 

2400VDU 23;6202;O;0;0 

2410VDU 24, xbase; ybase; xbase+1 1 
*xincr ; ybase+1 l*y incr j 

2420VDU 28,0,8,19,1' CLS 

2430GCOL 0,1' CLC' VDU 5 

244QF0R X-0 TO 9 ; FOR Y-0 TO 9 

2450MOVE xbase*X*xmcr, ybase+Y* 
y incr 

2460VDU242 

2470A<X,Y>-G 

2480 TF X-0 OR X«9 THEN fl<X>Y)"A 
<X,Y>+1 

2490IF Y-0 OR Y«9 THEN FKX/Y>«*fl 
<X,Y>+1 

25Q0NEXT Y' P<X>-G- NEXT X 
,2510ENDPROC 

2520REM 

.jf* 'LlPf-"M " " M " " M N " " " " " ' 4 " u M M M M " M " M (| 

it ii it tr 11 11 

2540REM 'CCC-. THE AO'L-OLUTF. END % 




*Tf(f(4*— 



ACORN PROGRAMS February/March 1984 



45 



QUICKSILVA ARE THE 
GAME LORDS... 



SPECTRUM PROGRAMS 

ANT ATTACK' 6.95 \ 

Sandy White 

GAMES DESIGNER' 14.951 

John Ho/Its 

BUGABOO' 6.95 i 

Indescomp 

TRAXX* 6.95 D 

Jeti Mtntet 'Salamander 

GRIDRUNNER' 6.95 ! 

Jeff Mtnter/Salamandef 

SMUGGLERS COVE' 6.95 J 
John Keneally 

VELNORSLAIR* 6.95 □ 

Derek Brewster 

3D STRATEGY* 6.95 D 

Freddy Vachha 

XADOM* 6.95 D 

Mike Moscott 

AQUAPLANE* 7.95 1 

John Hoiks 



ZX-81 PROGRAMS 

QS DEFEND A 
Nick Lambert 

QS ASTEROIDS 

John Hollis 

QS INVADERS 
Dave Edwards 

QS SCRAMBLE 
Dave Edwards 



3.95C 
3.95 D 
3.95 ; 
3.95 n 



COMMODORE 64 

PURPLE TURTLES ' 7.95 D 

Mark & Richard Moore 

AQUAPLANE' 7.95U 

John Hollis & Steve Hickman 

RING OF POWER' 
Mc C'emont & Fred Preston 

QUINTIC WARRIOR' 7.95 D 
TP Watts 

ULTISYNTH't 14.95U 

Nalin Sharma 

BBC PROGRAMS 

THE GENERATORS' 6.95 D 

Dave Mendes 

MINED OUT' 6.95 D 

Ian Andrew & Ian Rowlings 

BEEBART't 14.95D 

Dave Mendes 

PROTECTOR 7.95 U 

Andy Green 

WIZARD 6.95 D 

A R Buckley 

MUSIC PROCESSOR 

A ndy Williams 14.95U 

VIC20 PROGRAMS 

TORNADO 

CHARTEC 

SKY HAWK 

CHARTEC 

TRADERf 14.95 G 

PIXEL POWER 7.95D 

PIXEL 

ATARI PROGRAM 

MAGIC WINDOW 

M Walker 8.951 

DRAGON 

PROGRAM 

MINED OUT 5.95 D 
I & C Andrew 

ELECTRON 
PROGRAM 

MINED OUT' 6.95- 



• NEWRELEASeS 

t SUPPLIED IN A 
BOX WITH BOOKLET 



13 the tf ear of 



AH games marketed exclusively by Quicksilva Limited. 
Please send me the games I have ticked. 

I enclose cheque/P. O. lor 



Send to Quicksilva Mail Order, 
P.O. Box 6, 

Wimborne. Dorset BA21 7PY. 
Telephone (0202) 891744 

Name 

Address 



•«tM 



Boots. W H. Smiths. J. Menkes. 
Microdealer. HMV. Hamleys. 
John Lewis. Computers lor AM 
and all reputable specialist 
computer stores 



WARNING These programs are sold according lo QUICKSILVA Ltd's 

terms ol trade and conditions ot sale Copies ot which are available on request 



CHEM1PIANT 






H&H 
SOFTWARE 



PRESENTS 3 NEW TAPES 



for the 

BBC 32K COMPUTER 

to add to their existing range 
of games and educational software. 

LOONEY LIFT 

A new action packed arcade game with hi-res graph- 
ics, full colour and sound. Keep your guests jumping, 
operate the lift and watch out for the luggage. The 
alternative is the sack! £7.50 

CHEMIPLANT 

Another first? A chemical plant simulation. Avoid 
explosions, spills and other disasters on your way to 
your first million. Plant manual included. Hi-res 
graphics. £7.50 

STORY 

Electronic storytelling! 

First make up some scenes using pictures from the 
computer bank or use your own drawing skills. Then 
write your story. Up to 7 screens can be displayed, 
saved and printed. £6.50 

To get more information about our new and existing 
software, ask for a catalogue. Please send a s.a.e. 

• *Disc versions available: please add £1.50* • 

Please send orders and cheques/PO to: 

H&H Software, Dept AP2, 53 Holloway, 

Runcorn, Cheshire WA7 4TJ. 

Tel: 09285 65566 



46 



ACORN PROGRAMS February/March 1984 



'A. 



X 



.48 



cJ. 



/ * m 






vfci 







if. 




ANGUAGE TESTER will test 
'ou on up to 30 words in any 
language. Type-in the numbers 



IflllS 



and their English equivalent. You can 
be tested on the words as many times as = 
you wish and you then have the option §j 
of changing your words, stopping, or gj 
being tested on the same words again. 
Written by Slater King of north Lon- 
don. p 



LANGUAGE TESTER 



10 x~rnix-time> 

litl DIM flN'3*t30:< 

30 CLS 

4u R£.M££££VERBS£t££ 

5.8 PRUCinPut 

60 PRUCno 

70 IF fl=l THEN PRUCFURREN EL5 
E PRUCENG 

SO CLS'PRINT TflB<iQ,ia> H l>o YU 

U want another 9o" 

y0 INPUT flSir fl*-"NO" THEN EN 
D 

100 PRINT TflBCll,l2>"with the 
same words" INPUT AS 

110 IF fl*«"NO" THEN RUN EL3E G 
UTU 60 

120 END 

130 DEF PROCmPut 

140 PRINT TftB<l3,3>"ba 'JLRTER 
KING" 

150 PRINT TABO5j&>jCHR*C130->J 
CHRK141 >" VERBS" 'PRINT SPC<15>;C. 



HR«< l30>>f_HR*-:. 141 V VERBS™ 

166 PRINT TflB<3/8); SPCO>jCHR 
•<129>j"Hou many verbs do you wa 
nt to be" 

170 PRINT TflB<0,y>>CHR*'..12y>"t 
eatffd on ";CHR*< 131 >; 

130 INPUT NUM 

190 IF NUM>1 AND NUMOJ THEN Ci 
UTU 220 

200 PRINT TflB< 13, y>" 

210 GOTO 1?0 

220 PRINT Tf»fi<3,l2>jCHR«<13e>i 
"find now* tyPe m the forei9n ver 
b" 

230 PRINT; CHR»< 136 >> "fol lowed 
by the ENGLISH equivalent." 

240 DIM for*<38>'DIM en9»-; 30 > 

250 B«l 

260 REPEAT 

270 PRINT TRB06, 14>>CHR*< 129 > 
"VERB "JB 



280 PRINT; LHR* 131 >> 
290 INPUT for*<B5 

300 PRINT;LHR»<133>> 
310 INPUT en9*<B> 

320 PRlNTTflB<e,l5) H 

"'PRINT" 
330 IF LEN<for«<B>>>16' UR LEN< 
en9S<B>>>l6 THEN GOTO 270 
340 B-B+l 
350 UNTIL B-NUM+1 
360 ENDPRUC 
370 DEFPRUCno 

3B0 PRINT TflKS/18);CHR»<i34)j 

"t'n you want to be tested on*" 

390 PRINT SPC<l5>jOHR*<l3l>j"l 
. . . FORE 1 UN " ' PR i NT SPW IS >) CHR«< 1 
31 >) "2. .-ENGLISH" 

40O PRINT TflB<0/2l>i 'INPUT ft 
410 IF fl-i OR fl-2 THEN GOTO 44 



420 PRINT TflB<0,2l>" 

430 GOTO 400 

440PRINT SPU l£J>;UHR*'; i:ji }; "fin 
d how many times do" 

450 PR 1 NT SPlX 1 > ; CHR4K l :: 1 > J " w 
ant to be tested" ' INPUT D 

460 ENDPRUC 

470 DEF PROOENG 

4S0 E=0 

490 FUR B=l TO D 

5O0 CLS 

510 PRINT TflB<18,6>jCHR»029>; 

"TEST" 

520 PRINT Tflfc< 13,8 >;LHR$< 131 >; 
"Question No. ";B 

530 R-INT<RND<NUM>> 

540 IF E-R THEN GOTO 530 
550 E=R 

560 PRINT TflB<l5^10XjCHR*<13l) 
; for*-: R > 

570 PRINT ^PC<l2>;"flnd the En9 

lish?" 

5ftQ PRINT SPG'<14>iCHRi<;i34>J'I 
NPUT flNS*<R> 

5yw IF RNG*<R>=en9*<.R) THEN SO 
UNO 1,-15, 150/ 2- PRINT SPC<1S>J H W 
ell done" 'FOR T«l TU 10O0 ■ NEXT <G 
0T0 650 

600 SOUND 0,-15,50,10 

610 PRINT 3PC<l7>;CHR3K i2y>;CH 
R»< 136 >j "WRUNG" 

620 PRINT TflEKi2+<LEN<en9!|KR)> 

/2>, 16>;CHR*<131 >i"It was ";en9* 
<R> 

630 FUR T «1 TU 3000 

640 NEXT T 

650 NEXT B 

66Q ENDPRUC 

670 DEF PROCFORREN 

680 E=>0 

$90 FOR B»l TU 

700 CLS 

710 PRINT TflB<l8,6>/CHR»<12y> 
"TEST" 

720 PRINT TAB', 13,8 >"0ue*tion N 
o. "iB 

730 R-INT<RND<NUM>> 

740 IF E-R THEN GUTU ?3Q 

750 E-R 

760 PRINT TftB< 15,10 >jCHR« 131) 
; en9«K R > 

765 PRINT SPCOttV'flnd the for* 
i9n word" 

770 PRINT 3PC< 14>>CHR*< 134 >j 'I 
NPUT flNS*<R> 

760 IF RNS1K R >«f or$( R > THEN S 
OUND 1,-15, 150, 2 'PRINT SPCC15>j" 
Well done" 'FOR T*l TO 1000 'NEXT' 
GOTO 840 

730 SOUND 0,-15,50,10 

800 PRINT SPC<l7>;CHR«l29)iCH 
R«< 136 >; "WRUNG" 

805 PRINT TflB<l2KLEN<for<KR>> 
/2),16)jCHR«<131 >j"It was ">fort 
CR) 

810 FUR T-l TO 3000 

920 NEXT T 

840 NEXT B 

050 ENDPRGC 



ACORN PROGRAMS February/March 1984 



47 



I 



I 



I 



I 



t 



I 



THE GOOD 
COMPUTING 

"FOR 

BEGINNERS 

PIUS a< — pi m practical ghnwy of t«ms 



4 % 



• • 



» 

v 









> * 






at««iilJife- ^-^ 




/ r 



' --v.'"- 



w, * *vr* 



•r- . 



3»; 



r 



< 



< 



If you only buy ONE 
computing book 






■jr 



r*» - 



**> 



t** 



■ i 

■ | 



' \ 



^r 



i 



Wfc 





V 



_ 



'.. 






9 



■'•-v, 



\ 



TiJK 



. * 1 



»*** •** ■ * " 



swrasQ 






,.- 



An entertaining, but thorough reference source 
with the most readable, comprehensive glossary 
you'll find anywhere. The Good Computing Book 
for Beginners is an essential A-Z of all the facts you 
need to know about computing — and none you 

don't! 

Whether you're brand new to computing, or an old 
hand keen to stay ahead, you'll score by keeping this 
classic, top-selling book within reach to use again and 

again. 



TOT^ 



>i 






T^S-V 



The author, Dennis Jarrett, is a successful journalist 

who was also founder editor of Which Computer? 

magazine — so his first edition quickly became a 

standard work. Now this new, substantially 

enlarged and revised edition covers the latest 

trends, terms and technology with the relevant facts 

• alain English. 

Here's another fact you'll find fascinating: it will only 

cost you £2.95! 






■ 






4 












■ 



Use the coupon below to get your copy right away 
— or buy it soon from your bookshop. It's the one 

book you'll turn to again and again. 




■i, 



m 



sift 



,«« 




v X 






',* 



- -• r ,3 



'■ '-. 









r\ 












'**&** "<*> 



«<*' 












CHESHIRE 




HUMBERSIDE 




SHETLAND ISLES 




FAIRHURST INSTRUMENTS 

Complete range of BBC equipment 
including Econets, Printers, Plotters, 
Colour Monitors, Graphic Tablets, Up- 
grades, Disc Drives, Disc Controller 
chips. Torch Computers, Z80 Discpack. 
Extensive range of Software. 
Free expert advice. 
Dean Court, Woodford, Wilmslow, 
Cheshire Tel: 0625 533741 




Everything for the BBC 

Microcomputer — Your local 

dealer 

MICROSERVE (HUMBERSIDE) LTD 

39 Oswald Road, Scunthorpe, 

South Humberside DM15 7PN 

Tel: 0724 849696 

SPECIALISTS IN MICROCOMPUTER NETWORKS 




We stock a tiffin* Local 
wide range ^VTNr service and 
of soltware ( K \ northern 
books and V 7 / mailorder 
peripherals ^£i centre 

20 Commercial Road. Lerwick, Shetland (0595) 2145 

BBC 




















DEVON 




HERTFORDSHIRE 




SUFFOLK 




COMPUTERLAND 

(A & D COMPUTERS) 

BBC Micros. Disc Drives. Printers. 

Cumana Drives. Microvitec Monitors 

Software by Acorn. Gemini. Program 

Power Bugbyte Software for all etc 

6 City Arcade, Fore Street, Exeter. 

TEL: 77117 




STEVENAGE 

Computers for home and business 

• Disc Drive/ Upgrades • Printers • 

Monitors • Business Packages • Games 

• Service Contracts • 


Suffolk Computer Centre 

BBC Microcomputer Service & Inlofmation Centre 

Microcomputers • Disc Drives • Monitors 

Matrix & Daisywheel Printers • Joysticks 

Cassettes • Light Pens • Graphics Tablet 

Books & Software 

3 Garland St., Bury St Edmunds. 
Telephone: 0284 - 705503 

Open Mon Sat 9 5 30 


Q-TEK SYSTEMS 

m 119 High St. * 
^•coen Old Town Stevenage. 
coW t p Tel: 0439 60011 


















ESSEX 




LEICESTERSHIRE 




SURREY 
















ESTUARY HOME 
COMPUTER CENTRE 

Estuary Software Products now have 

BBC's in stock together with a wide range 

of software and accessories. 

261 Victoria Ave., Southend-on-Sea. 
__ Credit Card Holders may phone __ 
QE their orders (0702) 43558 " 




D. A. COMPUTERS LTD. 

Official BBC dealer and service centre Every- 
thing you require for the BBC computer inc 
Epson Printers. Selection of Disc Drives. PL 
Digitiser. Colour and Monochrone Monitors Full 
range of games soltware and books 

104 LONDON ROAD, LEICESTER. 
TEL: (0533) 549407 




THE COMPUTER SHOP 

J. S. Simnett Computers Ltd., oflicial BBC 
dealer and service centre Everything tor the 
BBC and Torch Computers plus peripherals 

91 Acre Road, Kingston-on-Thames, 
Surrey Tel: 01-549 0173 

ACCESS/BARCLAYCARD WELCOME 





















MICROCOMPUTER 
HOUSING 




Designed around the , 
BBC model B but suitable 
for various models. 

For School, College, home 
and business use this 
compact housing 
otters special 
safety and security 
features. Made up 
of individual 
modules-available 
separately -it you 
already own the original 
Tidybase you can upgrade it. 

With the processor locked' in 
place; plugs and sockets inaccessible 
there is little opportunity for tampering 
or pilfering. 

• Optional and unique security bar 
locks equipment in place. 

• 3 or 4 way socket accommodates 
monitor, processor, drive, printer etc. 
One external lead only for mains input - 
no multi-plugging, no adaptors. 

• Strong metal construction with safety 
edges, stoved finished Brown or Cream. 



• All individual 
modules interlock 
to provide complete housing. 

• Alternative housings for various 
disk drives available. 

• Optional trolley for ease of 
movement or unlock and carry the 
system 



For full details 

REMEDIAN INSTRUMENTS LIMITED 

3 Over Links Drive. Poole, Dorset BH1 4 9QU 

Tel: Canford Cliffs (0202) 708404 




remedian 



CARRYING CASE 

FOR 

BRC & TAPE/DISK UNIT 

Made of highly durable, extemely rugged ABS 
material. Briefcase style construction. Moulded 
compartments to house units. Lid detaches for 
use as TV/Monitor stand. £29.95p. 

EXTROIM SOFTWARE 

99 WESTGATE, GRANTHAM, LINCS. 

TEL: (0476) 70907 



ORDER | 
COUPON I 

3 ISSUES OF ! 
ADVERTISING 
FOR ONLY £30 

3 FOR 2 OFFER 

i 


PLEASE PLACE 
A BOX IN YOUR 
DEALER ACORN 
PROGRAMS 

NAME 

ADDRESS 


I 

I 




CHEQUE/PO ENCLOSED 
FOR C30 



ACORN PROGRAMS February/March 1984 



49 



BBC 32K 

All operating system 



747 FLIGHT SIMULATOR 

THE BEST SIMULATION AROUND, 

A MUST FOR ALL BUDDING PILOTS", PCN 



from DOCTOR SOFT, 

2b8 Conevgree Rd .. Peterborough 





Pilot written, 

instruments and 

3D visual runway view 

(Heathrow. Gatwick). Banks 

and pitches with realistic motion. Now with full 

Instrument Landing System (ILS). Briefing program, charts, notes and flight plan. Fantastic' 

ONLY E8.95 inc. VAT & P&P Joystick control option in 4 program package. DEALERS CONTACT (0903) 206076 

DISC VERSION NOW AVAILABLE £11.95 GENEROUS ROYALTIES PAID FOR GOOD MATERIAL 



* Available from 
W H SMITH 
JOHN MENZIES AND ALL LEADING DIALERS 

* Direct mailorder 

* MioofiKi 800 (Preston 



if 

II 

I 

1° 

Iuj 



3 DOUBLE ACTS FOR CHRISTMAS 

D Spook.Spook{MUNCHER20mazes.3 skills, Hall of Fame/GHOST MINE: dig for gold , watch for ghosts & snake) £6 95 

□ Space. Space (WOLK PACK m amazing colour graphics, 3 ships. 4 galaxies, aliens galoret/MISSION ALPHA 3D & music) €6 95 
D Spy. Spy (KREMLIN: escape from 3D maze in Kremlin/ BONDSKI lethal action on ski slopes') €6 95 

GAMES DISC PACKAGE 

D Muncher. Ghost Mine, Misson Alpha, Kremlin. Bondskii& Fireman (the building burns, the peoole jump, the helicopter bombs ? •) £15.95 
EDUCATIONAL □ COLOUR-SHAPE MATCH(2-4yrold)£5 95cass. D747SIMULATOR £8 95 DDISC VERSION £11 95 

D WORD PERFECT (Friendly & versatile full facility 40 80 column word processor. £8 95 + £2 95 Disc version 

□ TALKING TABLES TEACHER (Speaks when speech ROM fitted, teaches multiplication with games &i questions) £6 95(cassette) 

□ FAMILY DISC PACKAGE Tables Teacher. Colour Shape Match. Harmony. Home Office & Word Perfect £15.95 



ROYALTIES 



DOC PAYS THE BEST FOR THE BEST' 



DOCTOR SOFT 



I 






ADVANCED SOFTWARE 




All prices include VAT 8 PBP Cheque or PO to 

"Doctor Soft". 258 Coneygree Road. Peterborough PE2 8I.R 

NAME. 



ADDRESS 



i 



THE BEST RANGE 

of SOFTWARE 

for HOME MICROS 



Also 



■V 



VIDEO 
GAMES 

for ATARI 
COLECO 
INTELLIVISION 
VECTREX 



NOW IN STOCK 



Vast Number of Titles for 

ATARI 400/800 • SPECTRUM ZX 81 ■ APPLE 

BBC MICRO • VIC 20 DRAGON LYNX 

ORIC • TEXAS T199 • COMMODORE 64 

THE LARGEST SELECTION 
OF GAMES IN THE WORLD 




Branches BRIGHTON 52 Weslern Road 
NOTTINGHAM 31 LiSlerGaie 
BIRMINGHAM 141 New Slreel 
BOURNEMOUTH 60 Commercial Road 
BRISTOL 15 Broadmead LONDON 22 Oxford Slreet 



Send NOW for 



MAIL 

ORDER 

CATALOGUE 




■ H m m Main Computer & Mail Order Branch: ■■■■! 

22k Oxford St - London W1 A 2LS 



NAML 



ADDRESS 




E3<>;» 




I 

I 



1 84 



MAIL ORDER ADVERTISING 

British Code of Advertising Practice 

Advertisements in this publication are required to conform to 
the British Code of Advertising Practice. In respect of mail order 
advertisements where money is paid in advance, the code 
requires advertisers to fulfil orders within 28 days, unless a 
longer delivery period is stated. Where goods are returned un- 
damaged within seven days, the purchaser's money must be 
refunded. Please retain proof of postage/despatch, as this may 
be needed. 

Mail Order Protection Scheme 

If you order goods from Mail Order advertisements in this 
magazine and pay by post in advance of delivery, .Sincloir User 
will consider you for compensation if the Advertiser should 
become insolvent or bankrupt, provided: 

(1) You have not received the goods or had your money 
returned: and 

(2) You write to the Publisher of Sine/air User summarizing the 
situation not earlier than 28 days from the day you sent your 
order and not later than two months from that day. 

Please do not wait until the last moment to inform us. When you 
do write, we will tell you how to make your claim and what 
evidence of payment is required. - 

We guarantee to meet claims from readers in accordance with 
the above procedure as soon as possible after the Advertiser has 
been declared bankrupt or insolvent (up to a limit of £4.250 per 
annum for any one Advertiser so affected and up to £10.000 per 
annum in respect of all insolvent Advertisers. Claims may be 
paid for higher amounts, or when the above procedure has not 
Been complied with at the discretion of Sincfuir User, but we do 
not guarantee to do so in view of the need to set some limit to this 
commitment and to learn quickly of readers' difficulties). 

This guarantee covers only advance payment sent in direct 
response to an advertisement in this magazinefnot. for example, 
payment made in response to catalogues etc. received as a result 
of answering such advertisements). Classified advertisements 
are excluded. 



50 



ACORN PROGRAMS February/March 1984 



, ." — . 



°^ ■ 



▲ 



(** I 



E 

9 




▲ 



■■ 






. ■ 



1 ^H 




Just one good marketable game, educational 
or strategic simulation program could earn you, as 
author, up to £1,000 as a lump sum if you sell the rights 
in it to Logic 3 - Britain's fastest-growing company 
in home computer software. 

Or keep the copyright, take a royalty 
on sales, and maybe earn even more in 
the long run - our best selling author is 
currently earning £1,000 per month 
in royalties. 

Logic 3 is now looking for new high quality 
entertainment and educational software products 
to run on the leading home computers - 
particularly Sinclair Spectrum, Commodore 64, 
Acorn Electron and Dragon. 

Write or phone Andrew Golt'z at Logic 3, 
Mountbatten House, Victoria Street, Windsor 
(07535-57181) to know more. 

But soon. 




Or send the coupon for the Logic 3 software catalogue. 
Name 




Address 



LOGIC 3 



, Type of computer 



-THEKEYTOTHKworldoktomorroWi Logic3 Ltd., Mountbatten House, Victoria Street, Windsor SL41HE. Telephone: (07535)57181 



■ 



t 



• 



• 



• 






_^__ The Graphic Extension ROM — ^»— 

— for the BBC Micro 32K 

Our latest utility ROM includes over 28 new graphics related commands These can be typed In like any normal commands 
and can ot course, be included in BASIC programs The commands are split into 3 distinct areas:- 



Spnte graphics 



These are multi-coloured shapes up to 24 x 24 pixels in size 
Once a sprite has been designed (using m-bullt routine) it cc 



Oncfffo sprite has been designed (using m-bullt routine) it can be plotted at any position on Ifte screen and easily 
moved around. A sprite can also be part ot a film' — a sequence of frames allowing animation.Up to 32 sprites or 
'films' can be active on the screen at any time A film' can contain up to 47 frames, each frame being any sprite 
image 

LOGO turtle' graphics 

By using simple FORWARD. BACKWARD. LEFT and RIGHT commands a turtle' can be moved very quickly around the 
screen, producing intricate patterns by the most user-friendly means Including these commands in structured BBC 
BASIC programs provides, a system faster and moie powerful than many of the packages currently used to 
demonstrate the LOGO language 

The third section consists of o large number of general purpose commands, such as:- 

#HLL which will fill ANY area on screen. 

Fast circle and arc drawing 

3D graphics routines allowing X. Y. Z co-ordinate plotting 

Large character printing in a range of patterns 

Scaling — allowing any part of the screen to be expanded or diminished 

A rotate command that will rotate all plotting by any angle around the origin 

Because this is a ROM. all the commands are instantly available, and has o built-in help menu showing the syntax of 

all commands Supplied with a comprehensive manual dnd step-by-step fitting instructions, suitable even lor the 

inexperienced This ROM represents extremely good val^e tor money 

Available directly from us. mail order only, or from all good dealers 

£28.00 plus £1.00 p&p plus VAT 



CASH OR ROYALTIES We specialise in quality software 
for the BBC machine and can otter the best rates around 
We are always interested »n obtaining new programs to 
add to our range and orfe» either a cash payment tor the 
outright purchase or alternatively pay a royalty on each 
one so»d 



prvPUTER 
ONCEPTS 



BAItCUTtAM 




16 Wayside, Chipperfield, Herts WD4 9JJ. Telephone (09277) 69727